Document.FormattingShowFont (Word)

True para que Microsoft Word muestre el formato de fuente en el panel de tareas Estilos y formato.

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