向邮件合并主文档添加一个 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"