Application.MailMergeAfterMerge Event (Word)

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

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

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
Show:
© 2015 Microsoft