Word自动序号转化为文本格式

1.在word页面按Alt+F8键打开宏窗口；

2.在窗口的光标位置输入宏名称：

3.点击“创建”按钮；

4.打开了如下窗口；

5.在光标闪烁位置，输入以下代码；

Dim kgslist As List
For Each kgslist In ActiveDocument.Lists
kgslist.ConvertNumbersToText
Next

6.按Alt+q键返回word窗口；
7.按Alt+F8键，点击“执行”按钮，即可。