CollapseOutline 方法

将选定内容或指定范围内的正文折叠一个标题级别。

注意   如果文档未处于大纲或主控文档视图，将导致出错。

expression   必需。该表达式返回一个 View 对象。

Range   Range 对象，可选。需要折叠的段落范围。如果省略此参数，则折叠全部选定内容。

示例

本示例为活动文档的第二段设置“标题 2”样式，将活动窗口切换至大纲视图，并折叠第二段的正文。

ActiveDocument.Paragraphs(2).Style = wdStyleHeading2
With ActiveDocument.ActiveWindow.View
    .Type = wdOutlineView
    .CollapseOutline Range:=ActiveDocument.Paragraphs(2).Range
End With

本示例将文档中每个标题折叠一个级别。

With ActiveDocument.ActiveWindow.View
    .Type = wdOutlineView
    .CollapseOutline Range:=ActiveDocument.Content
End With