See if running the following macro by MVP Doug Robbins fixes the blacked out numbering:
Code:
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