Événement Application.MailMergeBeforeMerge (Word)

  • Article

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

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.