☰

弹出窗口中整个文档中的公司名称

tag-icon • tag-icon microsoft-word vba
弹出窗口中整个文档中的公司名称

使用下面的方法，我能够完美地将我需要的信息添加到文档中。但是，文档中有多个位置需要添加公司名称。书签不允许我两次使用同一个书签。有没有办法添加类似（“CompanyName1”）来填充“在此处输入公司名称”的相同答案，而无需填写另一个窗口？

Sub Document_Open()

     ActiveDocument.FormFields("CompanyName").Result = InputBox("Enter company name here")
     ActiveDocument.FormFields("CompanyStreet").Result = InputBox("Enter the company's street address here")

End Sub

答案1

用作 StyleRef 字段。它的工作原理是为公司名称、个人姓名等的原始位置分配一个唯一的样式名称，例如“TheCompanyName”。然后在您想要插入“TheCompanyName”值的位置插入一个 StyleRef 字段，该字段指定要使用的样式名称。

下面是一个文档的屏幕截图，该文档使用文档标题，该标题出现在封面上并在文档后面重复出现。此示例中的样式名称为“LGP 程序名称”。我已打开字段代码，以便您可以看到它的构造方式。

在此处输入图片描述

下图显示了它在文档中的实际样子。

在此处输入图片描述

相关内容