Document.FormattingShowFilter (Word)

Sets or returns a WdShowFilter constant that represents the styles and formatting displayed in the Styles and Formatting task pane. Possible return values are wdShowFilterFormattingAvailable - All formatting available, wdShowFilterFormattingInUse - All formatting in use, wdShowFilterFormattingRecommended - Only recommended styles, wdShowFilterStylesAll - All styles, wdShowFilterStylesAvailable - All styles available, wdShowFilterStylesInUse - All styles in use.

Sub ShowClearFormatting() 
 With ActiveDocument 
 .FormattingShowClear = False 
 .FormattingShowFilter = wdShowFilterFormattingInUse 
 .FormattingShowFont = True 
 .FormattingShowNumbering = True 
 .FormattingShowParagraph = True 
 End With 
End Sub