Word VBA教程:AddNextIf方法

在邮件合并主文档中插入一个 NEXTIF 域。返回一个 MailMergeField对象。NEXTIF 域将比较两个表达式,如果比较结果为 True,则下一条数据记录合并至当前合并文档中。

expression.AddNextIf(Range, MergeField, Comparison, CompareTo)

expression   必需。该表达式返回一个 MailMergeFields对象。

Range   Range对象,必需。指 NEXTIF 域的位置。

MergeField   String 类型,必需。合并域的名称。

Comparison  WdMailMergeComparison,必需。在比较中使用的操作符。

WdMailMergeComparison 可以是下列 WdMailMergeComparison 常量之一:
wdMergeIfEqual
wdMergeIfGreaterThanOrEqual
wdMergeIfIsNotBlank
wdMergeIfLessThanOrEqual
wdMergeIfGreaterThan
wdMergeIfIsBlank
wdMergeIfLessThan
wdMergeIfNotEqual

CompareTo   String 类型,必需。指与 MergeField 的内容进行比较的文字。

VBA示例

本示例在 Main.doc 中第一个 MERGEFIELD 域之前添加一个 NEXTIF 域。如果下面的邮政编码等于 98004,则下一条数据记录合并到当前合并文档。


Documents("Main.doc").MailMerge.Fields(1).Select
Selection.Collapse Direction:=wdCollapseStart
Documents("Main.doc").MailMerge.Fields.AddNextIf _
    Range:=Selection.Range, MergeField:="PostalCode", _
    Comparison:=wdMergeIfEqual, CompareTo:="98004"

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号