如何通过从ComboBox中选择一个选项来展开/折叠特定标题

Question

我创建了一些标题，这些标题应保持折叠状态，直到从comboxbox下拉列表中选择特定文本为止。

到目前为止，我只能找到全部展开崩溃的选项。

这就是我所拥有的...而且我确信我已经离开了基地

Private Sub ComboBox1_DropButtonClick()

ComboBox1.List = Array("Tetra Pak T50", "Tetra Pak T100", "Tetra Pak T125")

  If ComboBox1.Value = "Tetra Pak T50" Then
    ActiveDocument.ActiveWindow.View.ExpandAllHeadings
    Else
    ActiveDocument.ActiveWindow.View.CollapseAllHeadings
  End If

End Sub

Answer 1

Paragraph.CollapsedState属性用于折叠/展开单个段落。 （请注意，这是Word 2013或更高版本 - 在早期版本中不可用。）

设置为False以展开段落。

我不知道您计划如何识别特定段落，但假设您使用书签：

href\=\"(.*)\">

扩展段落。