Fixes Microsoft Word's multilevel numbered heading glitches (https://answers.microsoft.com/en-us/msoffice/forum/msoffice_word-mso_win10-mso_2013_release/word-2013s-heading-numbering-reverting-to-pipe/9129622c-8289-441b-b94f-7f7552acd828)

Fixit.vb

Sub Fixit()
Dim templ As ListTemplate
Dim lev As ListLevel
For Each templ In ActiveDocument.ListTemplates
  For Each lev In templ.ListLevels
    lev.Font.Reset
  Next lev
Next templ
End Sub