将Word自动生成的自动编号转换成可以编辑的静态编号

 输入宏名 ListConvertTxt 点击创建

代码区输入：

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

关闭宏编辑窗口

重新查看宏，点击运行