如何使用VBA在Microsoft 2010中创建MANDATORY表单字段？

Question

我对VBA很新，但我学得很快。我需要一些帮助，在Microsoft Word中制作强制表单字段。用户不能保存或保存＆amp;发送文档而不填写所有必填表格字段。

我在网上找到了以下代码：

Sub MustFillIn()
    If ActiveDocument.FormFields("Text1").Result = "" Then
        Do
            sInFld = InputBox("This field must be filled in, fill in below.")
        Loop While sInFld = ""
        ActiveDocument.FormFields("Text1").Result = sInFld
    End If
End Sub

但我不知道如何在Microsoft Word中重命名该字段。因此，例如，对于我的第一个表单字段，它应该被称为“FirstName”而不是“Text 1”。如何命名Microsoft Word 2010中的表单字段？

提前致谢，

标记

Answer 1

您可以使用控件的标记属性来执行此操作。见here。这适用于Word 2010，但较新的版本应该相同。