This example switches the active window to outline view and displays all text that's formatted with the Heading 1 style. Body text and all other types of headings are hidden.
With ActiveDocument.ActiveWindow.View
.Type = wdOutlineView
.ShowHeading 1
End With
This example switches the window for Document1 to outline view and displays all text that's formatted with the Heading 1, Heading 2, or Heading 3 style.
With Windows("Document1").View
.Type = wdOutlineView
.ShowHeading 3
End With