Word VBA教程:AddSkipIf方法

向邮件合并主文档添加一个 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 中的内容进行比较的文字。

VBA示例

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

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号