1、打开需要转换的文档,按快捷键Alt+F11打开宏编辑器,插入——模块

2、把下面代码复制粘贴到模块里。
Sub 全文编号转文本()
'将文档中全部自动编号转成正常文本。
ActiveDocument.Range.ListFormat.ConvertNumbersToText
End Sub

3、关闭这个编辑器,视图——宏——查看宏——选中刚才添加的宏——运行

4、可以看到文档中所有的自动编号已经变成可以直接编辑额文本了
时间:2026-02-13 05:05:44
1、打开需要转换的文档,按快捷键Alt+F11打开宏编辑器,插入——模块

2、把下面代码复制粘贴到模块里。
Sub 全文编号转文本()
'将文档中全部自动编号转成正常文本。
ActiveDocument.Range.ListFormat.ConvertNumbersToText
End Sub

3、关闭这个编辑器,视图——宏——查看宏——选中刚才添加的宏——运行

4、可以看到文档中所有的自动编号已经变成可以直接编辑额文本了