将一个 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 时插入的文字。
本示例实现的功能是:如果 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"