Application.MailMergeWizardStateChange-Ereignis (Word)

Artikel
04/07/2023

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

Application-Objekt

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.