MailMergeAfterMerge Event

Private Sub object_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document)

object    An object of type Application declared with events in a class module. For information about using events with the Application object, see Using Events with the Application Object.

Doc    The mail merge main document.

DocResult 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