ShowFirstLineOnly Property 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