向邮件合并主文档添加一个 SKIPIF 域。返回一个 MailMergeField 对象。SKIPIF 域将比较两个表达式,如果比较结果为 True,则 SKIPIF 移至数据源中的下一条数据记录,开始一个新的合并文档。
expression.AddSkipIf(Range, MergeField, Comparison, CompareTo)
expression 必需。该表达式返回一个 MailMergeFields 对象。
Range Range 对象,必需。指 SKIPIF 域的位置。
MergeField String 类型,必需。合并域的名称。
Comparison WdMailMergeComparison,必需。在比较中使用的操作符。
WdMailMergeComparison 可以是下列 WdMailMergeComparison 常量之一: |
wdMergeIfEqual |
wdMergeIfGreaterThanOrEqual |
wdMergeIfIsNotBlank |
wdMergeIfLessThanOrEqual |
wdMergeIfGreaterThan |
wdMergeIfIsBlank |
wdMergeIfLessThan |
wdMergeIfNotEqual |
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"