解决Word中出现的多级列表编号不显示的问题

常见的办法是：光标置于标题前方，按ctrl+⬅️，编号消失位置出现一小条灰色，再按ctrl+shift+S“重新应用样式”-“确定”即可找回编号。
但下次打开文档这个问题可能还依然存在。

 

所以比较简单且有效的方法是：

临时创建一个VBA宏，随便起个名称，不能用数字开头，输入以下代码并进行：

For Each templ In ActiveDocument.ListTemplates

For Each lev In templ.ListLevels

lev.Font.Reset

Next lev

Next templ

执行过后，问题就可以迎刃而解，下次打开文档也不会再出现问题。

 

参考：https://answers.microsoft.com/en-us/office/forum/office_2010-word/ms-word-header-styles-are-showing-black-boxes/c427b21c-dcda-46ce-a506-b9a16c9f2f3f