Application.MailMergeAfterRecordMerge Event (Word)

Office 2013 and later
GitHub-Mark-64px

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

Occurs after each record in the data source successfully merges in a mail merge.

expression .Private Sub object_MailMergeAfterRecordMerge(ByVal Doc 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.

This example displays a message with the value of the first and second fields in the record that has just finished merging. 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_MailMergeAfterRecordMerge(ByVal Doc As Document) 
 
 With Doc.MailMerge.DataSource 
 MsgBox .DataFields(1).Value & " " & _ 
 .DataFields(2).Value & " is finished merging." 
 End With 
 
End Sub
Show: