Microsoft Office Forums - View Single Post - [Solved] Multi-level list Weirdness

jthomas666 · 08-19-2019, 05:25 AM

Quote:

Originally Posted by Stefan Blom

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

This Fixed it! Thank you so much!

So, what happened?