Question

我是VBA的新手，我找不到解决问题的方法。我使用带有下拉菜单的Word表单。此下拉菜单中的选项是名称。当我在下拉菜单中选择一个名字时，我希望Word自动填写其他3个（常规）Formfields（带有联系方式）。基本上，我想要在这里解释（请参阅链接），但不使用Microsoft Access：

http://www.techrepublic.com/blog/how-do-i/how-do-i-dynamically-fill-microsoft-word-fields-using-access-data/

Answer 1

在学习VBA两周后，解决方案似乎很简单。如果有人需要完成同样的事情，那就在这里。随意使用它！

If ActiveDocument.*name of dropdown field* = "contact person 1" Then
    ActiveDocument.FormFields("formfield1").Result = "xxx"
    ActiveDocument.FormFields("formfield2").Result = "xxx"
    ActiveDocument.FormFields("formfield3").Result = "xxx"
ElseIf ActiveDocument.*name of dropdown field* = "contact person 2" Then
    ActiveDocument.FormFields("formfield1").Result = "xxx"
    ActiveDocument.FormFields("formfield2").Result = "xxx"
    ActiveDocument.FormFields("formfield3").Result = "xxx"
ElseIf ActiveDocument.*name of dropdown field* = "contact person 3" Then

...etc

End If

如何使用VBA动态填充Word表单域

1 个答案: