通过

Application.MailMergeAfterRecordMerge 事件 (Publisher)

  • 项目

在数据源中的每个记录成功合并到一个邮件合并后发生。

语法

表达式。MailMergeAfterRecordMerge (Doc)

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
Doc 必需 Document 邮件合并主文档。

备注

如果要维护客户管理数据库，您可以使用 MailMergeAfterRecordMerge 事件更新数据库，为每个合并的记录。

若要访问 Application 对象事件，请在代码模块的“常规声明”部分中声明 Application 对象变量 ，然后将该变量设置为要访问其事件的 Application 对象。

有关对 Microsoft Publisher Application 对象使用事件的信息，请参阅 对 Application 对象使用事件。

示例

以下示例显示一条消息，该消息显示刚完成合并的记录中第一个和第二个字段的值。

Private Sub MailMergeApp_MailMergeAfterRecordMerge(ByVal Doc As Document) 
 
 With ActiveDocument.MailMerge.DataSource 
 MsgBox .DataFields.Item(3).Value & " " & _ 
 .DataFields.Item(2).Value & " is finished merging." 
 End With 
 
End Sub

要使该事件发生，必须将以下代码行置于模块中的通用声明部分，并运行以下的初始化例程。

Private WithEvents MailMergeApp As Application 
 
Sub InitializeMailMergeApp() 
 Set MailMergeApp = Publisher.Application 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。