Styles and Formatting Task Pane

Options

Keep track of formatting

Application.Options.FormatScanning = False 

Mark formatting inconsistencies

Application.Options.ShowFormatError = False 

Show Drop-Down

Sets or returns a WdShowFilter constant that represents the styles and formatting displayed in the Styles and Formatting task pane.

ActiveDocument.FormattingShowFilter = wdShowFilter.wdShowFilterStylesAll