Événement Application.MailMergeAfterRecordMerge (Publisher)

Se produit après la fusion des différents enregistrements de la source de données dans une opération de publipostage.

Syntaxe

expression. MailMergeAfterRecordMerge (Doc)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Doc	Obligatoire	Document	Document principal de publipostage.

Remarques

Si vous gérez une base de données de gestion des clients, vous pouvez utiliser l'événement MailMergeAfterRecordMerge afin de mettre à jour la base de données pour chaque enregistrement fusionné.

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 affiche un message avec la valeur du premier et du second champ de l'enregistrement qui vient d'être fusionné.

Private Sub MailMergeApp_MailMergeAfterRecordMerge(ByVal Doc As Document) 
 
 With ActiveDocument.MailMerge.DataSource 
 MsgBox .DataFields.Item(3).Value & " " & _ 
 .DataFields.Item(2).Value & " is finished merging." 
 End With 
 
End Sub

Pour que cet événement se produise, vous devez placer la ligne de code suivante dans la section Général - Déclarations de votre module et exécuter la routine d'initialisation suivante.

Private WithEvents MailMergeApp As Application 
 
Sub InitializeMailMergeApp() 
 Set MailMergeApp = Publisher.Application 
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.