标题word修改多级列表,与出现数字介于1-600的错误 感谢作者 Sub repair() For Each templ In ActiveDocument.ListTemplates For Each lev In templ.ListLevels lev.Font.Reset Next lev Next templ End Sub