Événement Application.MailMergeBeforeMerge (Publisher)

Article
04/07/2023

Se produit lorsqu’une fusion est réalisée alors qu’aucun enregistrement d’une opération de publipostage n’a été fusionné.

Syntaxe

expression. MailMergeBeforeMerge (Doc, StartRecord, EndRecord, Cancel)

expressionUne variable qui représente un objetApplication.

Paramètres

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	Met fin à l'opération de publipostage avant même qu'elle ne commence.

Remarques

Pour accéder aux événements de l’objet Application , déclarez une variable objet Application dans la section Déclarations générales d’un module de code, puis définissez la variable sur l’objet Application pour lequel vous souhaitez accéder aux événements.

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

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 choisit Non, le processus de fusion est annulé.

Private Sub MailMergeApp_MailMergeBeforeMerge(ByVal Doc As Document, _ 
 ByVal StartRecord As Long, ByVal EndRecord As Long, _ 
 Cancel As Boolean) 
 
 Dim intVBAnswer As Integer 
 
 Set Doc = ActiveDocument 
 
 '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, "Event!") 
 
 'If user's response to question is No, then cancel 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

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.

Partager via