Share via


MailMergeAfterMerge Event

Occurs after all records in a mail merge have merged successfully.

Private Subobject**_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

Applies to | Application Object