ShowSummary Property
True if an automatic summary is displayed for the specified document. Read/write Boolean.
Example
This example hides everything in the active document except the summary text.
With ActiveDocument
.SummaryViewMode = wdSummaryModeHideAllButSummary
.SummaryLength = 30
.ShowSummary = True
End With