Événement Application.MailMergeWizardStateChange (Word)
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
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.