ShowSummary Property Example

This example hides everything in the active document except the summary text.

With ActiveDocument
    .SummaryViewMode = wdSummaryModeHideAllButSummary
    .SummaryLength = 30
    .ShowSummary = True
End With