1. Sub 全文编号转文本()
    2. '将文档中全部自动编号转成正常文本。
    3. ActiveDocument.Range.ListFormat.ConvertNumbersToText
    4. End Sub

    目前发现使用代码后，项目符号会有变动，要注意。