AddNextIf 方法

       

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

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

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

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

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

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

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

示例

本示例在 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"