Événement Application.MailMergeBeforeMerge (Word)
Se produit lorsqu'une fusion est exécutée avant qu'un enregistrement quelconque ait été fusionné.
Syntaxe
expression. MailMergeBeforeMerge (Doc, StartRecord, EndRecord, Cancel)
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. |
| StartRecord | Obligatoire | Entier long | Premier enregistrement de la source de données à inclure dans l'opération de publipostage. |
| EndRecord | Obligatoire | Entier long | Dernier enregistrement de la source de données à inclure dans l'opération de publipostage. |
| Annuler | Obligatoire | Booléen | La valeur True arrête le processus de fusion et publipostage avant qu'elle commence. |
Exemple
Cet exemple montre comment afficher, avant le démarrage de l'opération de publipostage, un message demandant à l'utilisateur s'il souhaite poursuivre. Si l'utilisateur clique sur No (Non), le processus est annulé. 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 Microsoft Word.
Private Sub MailMergeApp_MailMergeBeforeMerge(ByVal Doc As Document, _
ByVal StartRecord As Long, ByVal EndRecord As Long, _
Cancel As Boolean)
Dim intVBAnswer As Integer
'Request whether the user wants to continue with the merge
intVBAnswer = MsgBox("Mail Merge for " & _
Doc.Name & " is now starting. " & _
"Do you want to continue?", vbYesNo, "MailMergeBeforeMerge Event")
'If users response to question is No, cancel the merge process
'and deliver a message to the user stating the merge is canceled
If intVBAnswer = vbNo Then
Cancel = True
MsgBox "You have canceled mail merge for " & _
Doc.Name & "."
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.