Application.MailMergeWizardStateChange-Ereignis (Word)
Tritt auf, wenn ein Benutzer im Seriendruck-Assistenten von einem angegebenen Schritt zu einem anderen Schritt wechselt.
Syntax
Ausdruck. MailMergeWizardStateChange (Doc, FromState, ToState, Handled)
expression Eine Variable, die ein Application-Objekt darstellt.
Informationen zur Verwendung von Ereignissen mit dem Application-Objekt finden Sie unter Verwenden von Ereignissen mit dem Application-Objekt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Doc | Erforderlich | Document | Das Seriendruck-Hauptdokument. |
| FromState | Erforderlich | Long | Der Schritt des Seriendruck-Assistenten, von dem aus ein Benutzer weitergeht. |
| ToState | Erforderlich | Long | Der Schritt des Seriendruck-Assistenten, zu dem der Benutzer wechselt. |
| Handled | Erforderlich | Boolean | Mit True wechselt der Benutzer zum nächsten Schritt. Mit False verbleibt der Benutzer beim aktuellen Schritt. |
Beispiel
In diesem Beispiel wird eine Meldung angezeigt, wenn ein Benutzer von Schritt 3 des Seriendruck-Assistenten zu Schritt 4 wechselt. Je nach Reaktion auf diese Meldung verbleibt der Benutzer bei Schritt 3 oder wechselt zu Schritt 4. In diesem Beispiel wird davon ausgegangen, dass Sie in Ihren allgemeinen Deklarationen eine Anwendungsvariable mit dem Namen MailMergeApp deklariert und die Variable so festgelegt haben, dass sie dem Word-Anwendungsobjekt entspricht.
Private Sub MailMergeApp_MailMergeWizardStateChange(ByVal Doc As Document, _
FromState As Long, ToState As Long, Handled As Boolean)
Dim intVBAnswer As Integer
FromState = 3
ToState = 4
'Display a message when moving from step three to step four
intVBAnswer = MsgBox("Have you selected all of your recipients?", _
vbYesNo, "Wizard State Event!")
If intVBAnswer = vbYes Then
'Continue on to step four
Handled = True
Else
'Return to step three
MsgBox "Please select all recipients to whom " & _
"you want to send this letter."
Handled = False
End If
End Sub
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.