expression.ShowFirstLineOnly
expression Required. An expression that returns a View object.
Remarks
This property generates an error if the view isn't outline or master document view.
Example
This example switches the active window to outline view and hides all but the first line of body text.
With ActiveDocument.ActiveWindow.View
.Type = wdOutlineView
.ShowFirstLineOnly = True
End With