To fix the numbering, run the following macro, based on a similar macro created by Doug Robbins:
Code:
Sub ResetCharFormattingForLists()
Dim lt As ListTemplate
Dim l as ListLevel
For Each lt In ActiveDocument.ListTemplates
For Each l In lt.ListLevels
l.Font.Reset
Next l
Next lt
End Sub