Word VBA教程:AddIf方法

将一个 IF 域添至邮件合并主文档。返回一个 MailMergeField对象。更新时,IF 域将数据记录中的域与一个特定值进行比较,然后根据比较结果插入相应文本。

expression.AddIf(Range, MergeField, Comparison, CompareTo, TrueAutoText, TrueText, FalseAutoText, FalseText)

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

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

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

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

WdMailMergeComparison 可以是下列 WdMailMergeComparison 常量之一:
wdMergeIfEqual
wdMergeIfGreaterThanOrEqual
wdMergeIfIsNotBlank
wdMergeIfLessThanOrEqual
wdMergeIfGreaterThan
wdMergeIfIsBlank
wdMergeIfLessThan
wdMergeIfNotEqual

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

TrueAutoText   Variant 类型,可选。比较结果为 True 时所插入的“自动图文集”词条。如果指定该参数,则将忽略 TrueText。

TrueText   Variant 类型,可选。比较结果为 True 时插入的文字。

FalseAutoText   Variant 类型,可选。比较结果为 False 时插入的“自动图文集”词条。如果指定该参数,则将忽略 FalseText。

FalseText   Variant 类型,可选。比较结果为 False 时插入的文字。

VBA示例

本示例实现的功能是:如果 Company 合并域为空,则插入“For your personal use”;如果 Company 合并域非空,则插入“for your business”。


ActiveDocument.MailMerge.Fields.AddIf Range:=Selection.Range, _
    MergeField:="Company", Comparison:=wdMergeIfIsBlank, _
    TrueText:="for your personal use", _
    FalseText:="for your business"

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号