应用场景

在word办公中，很多时候我们会遇到在复制word内容的时候，自动编号无法复制问题。这时候就需要将自动编号批量转成普通文本。这里使用 Office 中的宏来处理。直接上步骤：

第一步：打开并创建宏

打开wrod文档，点击菜单“视图”，找到宏

打开后，输入宏名称，点击创建

第二步：编写宏

创建好后，将下列代码复制到编辑窗中

Dim kgslist As List
For Each kgslist In ActiveDocument.Lists
kgslist.ConvertNumbersToText
Next

第三步：运行宏

打开宏，点击运行即可。