打开word宏命令,快捷键Alt+F8
新建名称:编号转文本
在新的窗口里输入以下代码:
Dim kgslist As List
For Each kgslist In ActiveDocument.Lists
kgslist.ConvertNumbersToTextNext
保存并关闭,快捷键Alt+Q
再次打开宏命令,选择编号转文本,然后点击运行命令
点击带编号的文字,发现全部可以选择,则意味着编号全部转换成文字
打开word宏命令,快捷键Alt+F8
新建名称:编号转文本
在新的窗口里输入以下代码:
Dim kgslist As List
For Each kgslist In ActiveDocument.Lists
kgslist.ConvertNumbersToTextNext
保存并关闭,快捷键Alt+Q
再次打开宏命令,选择编号转文本,然后点击运行命令
点击带编号的文字,发现全部可以选择,则意味着编号全部转换成文字