Événement Application.MailMergeAfterMerge (Word)

Se produit après que tous les enregistrements d'une fusion ont été correctement fusionnés.

Syntaxe

expression. MailMergeAfterMerge (Doc, DocResult)

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

Exemple

Cet exemple montre comment afficher un message indiquant que la fusion de tous les enregistrements du document spécifié est terminée. Si le document a été fusionné dans un deuxième document, le message indique le nom de ce dernier. 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_MailMergeAfterMerge(ByVal Doc As Document, _ 
 ByVal DocResult As Document) 
 If DocResult Is Nothing Then 
 MsgBox "Your mail merge on " & _ 
 Doc.Name & " is now finished." 
 
 Else 
 MsgBox "Your mail merge on " & _ 
 Doc.Name & " is now finished and " & _ 
 DocResult.Name & " has been created." 
 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.