Question

我有一个复选框，用于回答文档中的问题。根据检查的内容，我想为用户扩展一个更详细的问题部分。我的复选框的If语句正确，但是以后我无法通过文本或节号弄清楚如何在文档中扩展特定标题。

我已经尝试过该循环以查找标题中的特定文本并将其展开

If ccCheckBox.Checked Then
Do Until Selection.Find.Found = False
    If Selection.Text Like "Licensing Discovery Questions" Then
    Selection.Find.Style = ActiveDocument.Styles("Heading 1")
    Selection.Find.Execute
        Else: Selection.Paragraphs(1).CollapsedState = False
    Selection.Find.Style = ActiveDocument.Styles("Heading 1")
    Selection.Find.Execute
    End If 
Loop
End if

我在文档的每个标题之间添加了连续的部分，并尝试使用此代码取消隐藏后续问题

If ccCheckBox.Checked Then
doc.Sections(2).Range.Font.Hidden = False
End if

我尝试将要查找的文本分配给一个字符串并扩展该字符串，但也没有解决问题。

我正在运行Microsoft Office 365 ProPlus

Answer 1

通过切换到“ Active X”复选框并为每个复选框使用以下代码，我找到了解决方案。

Private Sub CheckBoxNameHere_Click()

If CheckBoxNameHere.Value = True Then
ActiveDocument.Sections(2).Range.Font.Hidden = False
Else: ActiveDocument.Sections(2).Range.Font.Hidden = True
End If

End Sub

在Word VBA中扩展特定标题-O365 ProPlus

1 个答案: