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