AddSkipIf 方法

       

向邮件合并主文档添加一个 SKIPIF 域。返回一个 MailMergeField 对象。SKIPIF 域将比较两个表达式,如果比较结果为 True,则 SKIPIF 移至数据源中的下一条数据记录,开始一个新的合并文档。

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

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

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

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

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

CompareTo   Variant 类型,可选。指与 MergeField 中的内容进行比较的文字。

示例

本示例在 Main.doc 中第一个 MERGEFIELD 域之前添加一个 SKIPIF 域。如果下一个邮政编码等于 98040,则跳过下一条数据记录。

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