Word中定义的标题编号变成竖线的解决方案

Word中标题编号突然不出现，变成了竖线，调整多级列表的编号也没有用。
在百度经验中找到了解决方案。特此记录。
Word中标题编号变为竖线处理

但是上述步骤存在问题，关闭Word后再次打开仍然会出现黑竖线，采用宏命令修复，参考博客。
http://blog.sina.com.cn/s/blog_816abf930102ypsu.html

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

宏代码如下：

Sub repair()
 
For Each templ In ActiveDocument.ListTemplates
 
For Each lev In templ.ListLevels
 
lev.Font.Reset
 
Next lev
 
Next templ