wps 运行宏 获取所有的表格

1、 需求： 需要修改word里面的表格样式，表格大概有几百个

2.  wps 不支持批量处理，需要使用到宏，下面这个是从其他页面找到的获取所有的表格

  测试可以使用。步骤 复制下面的代码到： WPS的工具 --》 开发工具 --》VB编辑器

Sub SelectAllTables()
Dim tempTable As TableApplication.ScreenUpdating = False'判断文档是否被保护If ActiveDocument.ProtectionType = wdAllowOnlyFormFields ThenMsgBox "文档已保护，此时不能选中多个表格！"Exit SubEnd If'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRanges wdEditorEveryone'添加可编辑区域For Each tempTable In ActiveDocument.TablestempTable.Range.Editors.Add wdEditorEveryoneNext'选中所有可编辑区域ActiveDocument.SelectAllEditableRanges wdEditorEveryone'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRanges wdEditorEveryoneApplication.ScreenUpdating = TrueEnd Sub

3： 如果WPS之前没有装过宏相关的工具就需要先去下载

    下载地址:: https://pan.baidu.com/s/1vpq51bAKQPhfbKpC2GzwjA?pwd=1ace 提取码: 1ace