CollapseOutline Method

Collapses the text under the selection or the specified range by one heading level.

Note   If the document isn't in outline or master document view, an error occurs.

expression   Required. An expression that returns a View object.

Range   Optional Range object. The range of paragraphs to be collapsed. If this argument is omitted, the entire selection is collapsed.

Example

This example applies the Heading 2 style to the second paragraph in the active document, switches the active window to outline view, and collapses the text under the second paragraph in the document.

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

This example collapses every heading in the document by one level.

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