expression.FormattingShowFont
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example enables display of font formatting in the Styles and Formatting task pane.
Sub ShowClearFormatting()
With ActiveDocument
.FormattingShowClear = False
.FormattingShowFilter = wdShowFilterFormattingInUse
.FormattingShowFont = True
.FormattingShowNumbering = True
.FormattingShowParagraph = True
End With
End Sub