Application.MailMergeBeforeRecordMerge 事件 (Word)
在针对合并中的单个记录执行合并时发生。
语法
表达式。MailMergeBeforeRecordMerge (Doc, Cancel)
expression:表示 Application 对象的变量。
有关对 Application 对象使用事件的信息,请参阅 将事件与 Application 对象配合使用。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
Doc | 必需 | Document | 邮件合并主文档。 |
Cancel | 必需 | Boolean | 真正 开始前停止仅在当前记录的邮件合并过程。 |
示例
此示例验证邮政编码的长度(在本示例中为字段编号 6)是否小于 5 位,如果为,则仅取消该记录的合并。 该示例假定在一般声明中声明了一个名为 MailMergeApp 的应用程序变量,并将 Microsoft Word Application 对象赋给该变量。
Private Sub MailMergeApp_MailMergeBeforeRecordMerge(ByVal _
Doc As Document, Cancel As Boolean)
Dim intZipLength As Integer
intZipLength = Len(ActiveDocument.MailMerge _
.DataSource.DataFields(6).Value)
'Cancel merge of this record only if
'the ZIP Code is fewer than five digits
If intZipLength < 5 Then
Cancel = True
End If
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。