Événement Application.MailMergeWizardStateChange (Word)

  • Article

Se produit lorsqu'un utilisateur passe d'une étape spécifiée de l'Assistant Fusion et publipostage à une autre.

Syntaxe

expression. MailMergeWizardStateChange (Doc, FromState, ToState, Handled)

expressionUne variable qui représente un objetApplication.

Pour plus d’informations sur l’utilisation d’événements avec l’objet Application , consultez Utilisation d’événements avec l’objet Application.

Parameters

Nom Requis/Facultatif Type de données Description
Doc Obligatoire Document Document principal de publipostage.
FromState Obligatoire Entier long Étape de l'Assistant Fusion et publipostage actuellement effectuée par l'utilisateur.
ToState Obligatoire Entier long Étape de l'Assistant Fusion et publipostage à laquelle va accéder l'utilisateur.
Handled Obligatoire Booléen La valeur True, l'utilisateur se déplace vers l'étape suivante. False pour l'utilisateur reste à l'étape actuelle.

Exemple

Cet exemple montre comment afficher un message lorsqu'un utilisateur passe de l'étape trois à l'étape quatre de l'Assistant Fusion et publipostage. Selon la réponse donnée au message, l'utilisateur passe à l'étape quatre ou reste à l'étape trois. L'exemple présuppose que vous avez déclaré une variable d'application dénommée MailMergeApp dans vos déclarations générales et que vous lui avez affecté une valeur identique à celle de l'objet Application de Word.

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

Voir aussi

Objet Application

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.