word2016 列表目录不能自动编号 出现数字必须介于1和600之间

好好的word总出现这样那样的问题，折腾了好久总算是弄好了

原文链接 感谢知乎大佬

Sub repair()

For Each templ In ActiveDocument.ListTemplates

For Each lev In templ.ListLevels

lev.Font.Reset

Next lev

Next templ

End Sub

 

1.点击菜单栏“视图”，2.找到“宏“选项卡，点击后弹出下拉选项中选择”查看宏“3.弹出的窗口中输入”宏名（例如repair）“，然后点击”创建“，将上面那段宏代码复制粘贴进去。4.在工具栏找到”运行宏“图标（向右的三角形），点击一下就可以运行了。