单击ms-word上的富文本字段时出现VBA - 运行时错误

Question

不是很熟悉VBA，所以我觉得这可能是一个相当简单的问题，但我无法找到解决我的问题的方法。

在ms-word中，我创建了一个表单，其中最初，我希望基于与表单的不同交互（下面的代码）来隐藏/显示表单的特定方面，这在另一篇文章的帮助下工作正常，但现在我添加了导致运行时错误的文本字段。

现在我的问题是ContentControlOnExit函数正在应用于用户点击文本字段时，我只想在用户点击chechkbox时应用，这会导致运行时错误。

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)

    Dim bChecked As Boolean
    bChecked = (ContentControl.Checked = True)

    If ContentControl.Title = "checkbox1" Then
        ActiveDocument.Bookmarks("approve").Range.Font.Hidden = bChecked
    End If

    If ContentControl.Title = "checkbox2" Then
        ActiveDocument.Bookmarks("sign1").Range.Font.Hidden = bChecked
        ActiveDocument.Bookmarks("sign2").Range.Font.Hidden = bChecked
    End If

    If ContentControl.Title = "checkbox3" Then
        ActiveDocument.Bookmarks("note").Range.Font.Hidden = bChecked
    End If

End Sub

是否有任何简单的声明我可以添加，以便在单击文本字段时不进行此检查？

Answer 1

您可以使用内容控件的Type属性来检查它是否是一个复选框： https ： //docs.microsoft.com/en-us/office/vba/api/word.contentcontrol.type

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, _
                                          Cancel As Boolean)
    'exit if the control is not a checkbox
    If ContentControl.Type <> wdContentControlCheckbox Then Exit Sub

    'rest of your code here         

End Sub