Word多级标题出现黑块的解决思路

1.问题背景

在写word文档的过程中，今天打开突然发现四级标题出现了黑块的情况。

2.问题排查

2.1 样式

通过查看标题4的样式，对于字号、字体、格式中的段落、编号均无异样。

2.2 多级标题排查

我们依次点击多级标题->定义新的多级标题，选择四级，发现下面输入编号的格式和其他标题的显示不一致，想到应该是这方面的问题。

 

此时，我们点击字体，弹出如下提示框，但是仍然能进入字体设置的界面。但是我们发现字号竟然是0。我们依次设置中文字体、字形和字号。

然而，令我们郁闷的是又弹出一个框，数字必须介于1和1638之间。此时我们感觉应该是当前word模板出现了问题。无奈，我们只好关闭此窗口。需求新的解决思路。

2.3 多级标题排查

通过各种研究，感觉问题出现在样式上，此时我们可以通过vba实现全文的批量样式重设，打开vbe编辑窗口（打开方式和excel一样，可以参照我的一篇博客“Excel利用VBA实现去掉单元格两边空格”）。依次点击插入->模块，在弹出的界面输入一下代码，然后点击执行。

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

等程序执行完毕，此时我们发现黑块不见了。