word去除自动编号的宏但是保留序号

打开宏编写

1. “宏”可以在“开发工具”菜单栏找到，可是，怎么没有看见“开发工具”这一项？没关系，等我把它变出来。单击“文件”，会出现一个页面，点击页面左侧最后一行的“选项”。在弹出的对话框里找到“自定义功能区”并点击。
   
2. 接着，看看在右边的大框框里，是不是有“开发工具”这一项，好的，勾选该选项，然后单击“确定”。再来看看文档的功能区，是不是多了一个“开发工具”选项了。
   
3. 单击“开发工具”，在菜单栏左侧你就可以看到有关“宏”的选项。在使用之前，我们必须启用“宏”。点开“宏安全性”，在“宏设置”的四个选项里选中“启用所有宏”，然后单击“确定”。启用了宏以后，来看看文档，如果我想对一些重点内容添加”【】”，一个一个添加太浪费时间，这时运用宏就非常轻松了。
   

参考
word里宏怎么用_百度经验 https://jingyan.baidu.com/article/3aed632e36c8f77011809172.html

编写宏

1. 备份文件后应用如下宏（用法：如果有选择则处理选择区域，否则处理全部）：

Sub 自动编号转文本()
If Selection.Type = wdSelectionIP Then
ActiveDocument.Content.ListFormat.ConvertNumbersToText
ActiveDocument.Content.Find.Execute FindText:=”^t”, replacewith:=” “, Replace:=wdReplaceAll
Else
Selection.Range.ListFormat.ConvertNumbersToText
Selection.Find.Execute FindText:=”^t”, replacewith:=” “, Replace:=wdReplaceAll
End If
End Sub

或者
Sub ListConvertTxt()
Dim i As List
For Each i In ActiveDocument.Lists
i.ConvertNumbersToText
Next
End Sub

参考
Excel VBA如何去掉WORD中的全部自动编号的格式，但数字还保留着？-Word-ExcelHome技术论坛 - http://club.excelhome.net/thread-873309-1-1.html