1、首先选择菜单栏的“开发工具”，点击“宏”，打开宏创建窗口，随便输入一个非数字开头的宏名，点击创建。
2、之后会自动打开VBA编辑窗口，并自动写好了宏代码开头和结尾。
3、然后在光标默认停留处（即代码“EndSub”的上一行），输入如下代码：
ForEachtemplInActiveDocument.ListTemplates
ForEachlevIntempl.ListLevels
lev.Font.Reset
Nextlev
Nexttempl
4、最后按F5键运行，或者点击工具栏运行按钮运行该宏过程，这样就解决了”word-多级列表-第3级标题-不能显示编号“的问题。
