wps 运行宏 获取所有的表格

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

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

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

复制代码
Sub SelectAllTables()
Dim tempTable As Table
 
    Application.ScreenUpdating = False
    '判断文档是否被保护
    If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
        MsgBox "文档已保护,此时不能选中多个表格!"
        Exit Sub
    End If
    '删除所有可编辑的区域
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    '添加可编辑区域
    For Each tempTable In ActiveDocument.Tables
        tempTable.Range.Editors.Add wdEditorEveryone
    Next
    '选中所有可编辑区域
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    '删除所有可编辑的区域
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    
    Application.ScreenUpdating = True
   
End Sub

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

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

相关推荐
醇氧1 天前
【wps】 excel 删除重复项
excel·wps
不坑老师3 天前
利用不坑盒子的Copilot,快速排值班表
microsoft·word·powerpoint·excel·copilot·wps
LENG_Lingliang14 天前
word出现由WPS切换后公式异常无法删除的情况处理
word·wps·mathtype
阿门阿前一棵小白菜16 天前
宇宙尽头是WPS之——【Excel】一个自动重新排序的宏
excel·wps
Ven%16 天前
Linux环境下使用WPS比较word文档并生成修订
linux·服务器·python·wps
明月看潮生16 天前
青少年编程与数学 01-012 通用应用软件简介 02 WPS Office办公软件
青少年编程·wps·编程与数学·应用软件
大头大了17 天前
《超级处理器》怎么安装到WPS/excel(最后有下载地址)
excel·wps
坚毅不拔的柠檬柠檬17 天前
AI办公提效,Deepseek + wps生成ppt
人工智能·ai·wps·deepseek
流浪猪头拯救地球18 天前
WPS 和 office (word/excel/ppt) 找到模板所在位置以及更改模板的方式(公文写作格式要求、字体安装、模板下载)
word·excel·wps
爱上妖精的尾巴18 天前
3-18 WPS JS宏 颜色设置实例应用(按条件设置单元格颜色)学习笔记
javascript·笔记·学习·excel·wps·js宏·jsa