Text 展开Word VBA-O365 ProPlus中的特定标题

我对文档中的问题有不同答案的复选框。根据检查的内容，我想为用户展开一个更详细的问题部分。我对复选框的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

通过切换到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

---

能否请您更具体地说明问题“不起作用”中显示的代码以及如何识别标题？所提供的信息非常模糊，很难给出准确的答案。另外，请检查问题中的代码格式-您可以使用链接更正它。两个代码都执行时没有错误，但什么也没有发生。第一个代码，所有内容都保持折叠状态，第二个代码，所有内容都保持隐藏状态。我建议您使用F8“逐步浏览”代码，并查看选择所在的每一行。有可能

Find

在第一个“Find”选项中查找第二个搜索词（查看标题1是否在许可证查询问题中）。另外，不要使用

Else:

-将

Else

的所有内容放在自己的行中，以便代码清晰易读。就

Find

部分而言，还不清楚您希望这段代码做什么。在不知道的情况下，无法找出

CollapseState

没有达到预期效果的原因。ActiveX复选框的使用与您的“解决方案”无关；同样，使用内容控制和用户表单复选框也可以轻松实现。您的“解决方案”也与扩展/折叠标题无关；相反，您使用的是不太可靠的隐藏内容的方法——只有当用户将Word配置为不显示隐藏文本时，这种方法才有效。但是，展开/折叠只适用于较新的Word版本。最后，如果您的文档需要在Mac上使用，您需要知道那里不支持ActiveX控件。