word去掉自动编号格式但保留原编号内容（宏命令）

转自雨落无痕show
1.打开word文档，bai按下快捷键Alt+F8，在“du宏名”zhi栏中输入“dao编号转换为文本”，这是给答它起的名字，然后点击“创建”
2.在新打开的窗口上，你会看到光标在闪烁，把下面这4行内容复制粘贴到此处
Dim kgslist As List
For Each kgslist In ActiveDocument.Lists
kgslist.ConvertNumbersToText
Next
然后按下快捷键Alt+Q（或者，点击左上角“文件”——“关闭并返回到Microsoft Word”），回到word界面。
3.光标定位在除了自动编号以外的任意位置，然后按下Alt+F8，选中“编号转换为文本”（选中后底色为蓝色），再点击“运行”。