发布网友 发布时间:2022-04-20 04:47
共4个回答
热心网友 时间:2023-08-31 20:02
因为你现在是js宏的状态,要切换成vb宏。
切换到vb宏的状态下,就可以使用vb的代码了
Sub Macro1()
ActiveDocument.Range.ListFormat.ConvertNumbersToText
End Sub
扩展:
对于部分VBA和WPS宏编辑器共存的WPS版本,默认的开发环境是VBA,可以通过点击“开发工具”选项卡的“切换到JS环境”来切换当前的开发环境,也可以通过“选项”——“视图”——勾选的“功能区选项”的“默认JS开发环境”,来设置默认的开发环境。
如果当前版本没有vba,那么需要安装vba环境。
热心网友 时间:2023-08-31 20:02
打开需要转换的文档,按快捷键Alt+F11打开宏编辑器,插入——模块
把下面代码复制粘贴到模块里。
Sub 全文编号转文本()
'将文档中全部自动编号转成正常文本。
ActiveDocument.Range.ListFormat.ConvertNumbersToText
End Sub
关闭这个编辑器,视图——宏——查看宏——选中刚才添加的宏——运行
4
可以看到文档中所有的自动编号已经变成可以直接编辑额文本了
热心网友 时间:2023-08-31 20:03
不用这么复杂,可简单了,全选后粘贴到记事本中,序号就会变成文本格式,再从记事本中复制出来,记事本基本上能清除所有格式热心网友 时间:2023-08-31 20:03
您好 我是显赫,如果您只是想把自动编号转为文本,那我给您提供一种简便方案,即先将文档里需要转换的文字全部复制,粘贴到记事本里,再从记事本中复制,粘贴到文档中就可以了,如果能帮到你,请把这份爱心传递下去,谢谢。