É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
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Doc | Obligatoire | Document | Document principal de publipostage. |
| DocResult | Obligatoire | Document | Document créé grâce à l'opération de publipostage. |
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
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.