如何用VBA实现Word文档中标题的展开与折叠自动化？

Word的大纲视图对象（Outline）提供了直接控制标题展开折叠的方法，以下是针对不同需求的VBA实现代码：

1. 展开所有标题 #

这段代码会展开文档中所有层级的标题，操作后可选择保持大纲视图或切回页面视图：

Sub ExpandAllHeadings()
    ' 切换到大纲视图
    ActiveDocument.ActiveWindow.View.Type = wdOutlineView
    ' 展开所有大纲内容
    ActiveDocument.ActiveWindow.Outline.ExpandAllRanges
    ' 可选：切回页面视图
    ' ActiveDocument.ActiveWindow.View.Type = wdPrintView
End Sub

2. 折叠所有标题到指定层级 #

比如只保留一级标题可见，折叠所有子层级：

Sub CollapseToLevel1()
    ActiveDocument.ActiveWindow.View.Type = wdOutlineView
    ' 折叠到一级大纲级别
    ActiveDocument.ActiveWindow.Outline.CollapseOutline Level:=wdOutlineLevel1
    ' 可选：切回页面视图
    ' ActiveDocument.ActiveWindow.View.Type = wdPrintView
End Sub

若需折叠到其他层级，将wdOutlineLevel1替换为wdOutlineLevel2至wdOutlineLevel9即可。

3. 切换单个标题的展开/折叠状态 #

针对选中的标题，切换它的展开/折叠状态：

Sub ToggleSelectedHeading()
    Dim selPara As Paragraph
    
    If Selection.Type = wdSelectionNormal Then
        Set selPara = Selection.Paragraphs(1)
        ' 仅处理有大纲级别的段落（标题）
        If selPara.OutlineLevel <> wdOutlineLevelBodyText Then
            ActiveDocument.ActiveWindow.View.Type = wdOutlineView
            ' 切换当前段落的展开状态
            ActiveDocument.ActiveWindow.Outline.ToggleExpansion
            ' 可选：切回页面视图
            ' ActiveDocument.ActiveWindow.View.Type = wdPrintView
        End If
    End If
End Sub

注意事项 #

• 确保目标段落应用了内置标题样式（Heading 1~Heading 9），或手动设置了大纲级别（段落格式→大纲级别），否则代码无法识别为标题。
• 若不需要停留在大纲视图，取消代码中切回页面视图的注释即可。
• 批量处理非连续标题时，可遍历文档所有段落，通过Paragraph.OutlineLevel判断是否为标题，再执行展开/折叠操作。

内容的提问来源于stack exchange，提问作者Luis Ñáñez Llanos