Document.FormattingShowNumbering (Word)

True pour que Microsoft Word affiche la mise en forme numérique dans le volet Office Styles et mise en forme.

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