ExpandOutline Method
Expands 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.ExpandOutline(Range)
expression Required. An expression that returns a View object.
Range Optional Range object. The range of paragraphs to be expanded. If this argument is omitted, the entire selection is expanded.
Example
This example expands every heading in the document by one level.
With ActiveDocument.ActiveWindow.View
.Type = wdOutlineView
.ExpandOutline Range:=ActiveDocument.Content
End With
This example expands the active paragraph in the Document2 window.
With Windows("Document2")
.Activate
.View.Type = wdOutlineView
.View.ExpandOutline
End With