Word 二级编号问题修复

代码：

Sub ListnumPatch()  
' 2nd listnum repair patch macro  
  
    For Each templ In ActiveDocument.ListTemplates  
        For Each lev In templ.ListLevels  
            lev.Font.Reset  
        Next lev  
    Next templ  
  
End Sub

步骤：