word一键将所有自动编号改成文本

word里边添加宏：

Sub 全文编号转文本()

'将文档中全部自动编号转成正常文本。

ActiveDocument.Range.ListFormat.ConvertNumbersToText

End Sub

将以上代码创建成宏