彻底解决Word标题编号变黑框

Posted 2021-06-13 我也是个傻瓜

在《Word标题编号变黑框》一文中使用了"重新应用"应用样式功能可解决word文档中标题编号变黑的问题。但保存重新打开后问题依旧。它的主要原因是模板的字体文件损坏，需要VBA代码来批量重置。步骤如下：

第一步，创建宏。在Word菜单栏中单击"视图"-"宏"-"查看宏"，打开对话框，快捷键ALT+F8

输入宏名称，单击创建，如下图：

第二步，在VBA代码编辑器中输入如下代码块，主要目的是重置字体；然后执行一下。

代码如下：

For Each templ In ActiveDocument.ListTemplates

For Each lev In templ.ListLevels

lev.Font.Reset

Next lev

Next templ

第三步，关闭VBA编辑器，删除宏，保存文件打开查看结果。