微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

VBScript 语法:MS Word 合并字段

如何解决VBScript 语法:MS Word 合并字段

我需要一个宏来放置带有嵌套 IF 语句的条件合并字段。大多数用户只是从一个文档中复制合并字段并将它们粘贴到他们的最终草稿中。但是,有许多条件合并字段可供选择。使用输入合并字段而不是复制和粘贴的命令按钮将提示用户错误并加快此过程。非常感谢任何帮助。

  • 一个将多嵌套条件 IF 语句放入一个 文档。
  • 下面是我创建的代码。哪里写着“truetext:=”True”,就是我需要插入另一个合并字段的地方。

感谢您的阅读和关注!

Dim doc As Word.Document
Dim mName As String
Dim dField As Word.MailMergedatafield

Set doc = ActiveDocument

doc.MailMerge.Fields.Add Range:=Selection.Range,Name:="""Client_FirstName"""
    Selection.TypeText Text:=" "

doc.MailMerge.Fields.AddIf Range:=Selection.Range,_
mergefield:="""Client_MiddleName""",Comparison:=wdMergeIfIsNotBlank,_
truetext:="True",_
falsetext:="False"
Selection.TypeText Text:=" "
    
doc.MailMerge.Fields.Add Range:=Selection.Range,_
    Name:="""Client_LastName"""

doc.MailMerge.Fields.AddIf Range:=Selection.Range,_
mergefield:="""Client_NameSuffix""",_
truetext:="""Client_NameSuffix""",_
falsetext:=""
    Selection.TypeText Text:=" "

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。