Application.MailMergeAfterMerge Event (Word)
Occurs after all records in a mail merge have merged successfully.
Syntax
expression .Private Sub object_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document)
expression A variable that represents an Application object that has been declared with events in a class module. For information about using events with the Application object, see Using Events with the Application Object.
Parameters
Name |
Required/Optional |
Data Type |
Description |
|---|---|---|---|
Doc |
Required |
Document |
The mail merge main document. |
DocResult |
Required |
Document |
The document created from the mail merge |
Example
This example displays a message stating that all records in the specified document are finished merging. If the document has been merged to a second document, the message includes the name of the new document. This example assumes that you have declared an application variable called MailMergeApp in your general declarations and have set the variable equal to the Word Application object.
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