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

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

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

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

输入宏名称,单击创建,如下图:

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

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

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

代码如下:

For Each templ In ActiveDocument.ListTemplates

For Each lev In templ.ListLevels

lev.Font.Reset

Next lev

Next templ

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

上一篇:VBA-操作单元格对象


下一篇:VBA 利用字典去重获取唯一值列表(案例为一维数组)