1.打开word文档，按下快捷键Alt+F8，在“宏名”栏中输入“编号转换为文本”，这是给它起个名字，然后点击“创建”；
2.在新打开的窗口上，你会看到光标在闪烁，修改为下面代码：
Sub 编号转换为文本()
Dim kgslist As List
For Each kgslist In ActiveDocument.Lists
kgslist.ConvertNumbersToText
Next
End Sub然后按下快捷键Alt+Q，回到word界面;
3.光标定位在除了自动编号以外的任意位置，然后按下Alt+F8，选中“编号转换为文本”（选中后底色为蓝色），再点击“运行”。