Word用户表单 - 仅允许向书签添加数据一次

要创建一个Word用户表单，仅允许向书签添加数据一次，可以使用以下代码示例：

Private Sub Document_Open()
    ' 在文档打开时执行的事件

    ' 检查是否已经添加了数据到书签
    If ActiveDocument.Bookmarks.Exists("FormData") Then
        ' 如果已经添加了数据，则禁用表单字段的编辑
        DisableFormFields
    Else
        ' 如果没有添加数据，则启用表单字段的编辑
        EnableFormFields
    End If
End Sub

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
    ' 在离开表单字段时执行的事件

    ' 检查是否已经添加了数据到书签
    If ActiveDocument.Bookmarks.Exists("FormData") Then
        ' 如果已经添加了数据，则禁用表单字段的编辑
        DisableFormFields
    End If
End Sub

Private Sub DisableFormFields()
    ' 禁用表单字段的编辑

    Dim oFormField As FormField
    For Each oFormField In ActiveDocument.FormFields
        oFormField.Enabled = False
    Next oFormField
End Sub

Private Sub EnableFormFields()
    ' 启用表单字段的编辑

    Dim oFormField As FormField
    For Each oFormField In ActiveDocument.FormFields
        oFormField.Enabled = True
    Next oFormField
End Sub

这段代码包含了以下几个事件和子程序：

• Document_Open()：在文档打开时执行的事件。它检查是否已经向书签添加了数据，如果是，则禁用表单字段的编辑；如果没有，则启用表单字段的编辑。
• Document_ContentControlOnExit()：在离开表单字段时执行的事件。它检查是否已经向书签添加了数据，如果是，则禁用表单字段的编辑。
• DisableFormFields()：禁用表单字段的编辑。
• EnableFormFields()：启用表单字段的编辑。

在你的Word文档中，你可以使用上述代码示例来实现仅允许一次添加数据到书签的用户表单。