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

相关推荐
2501_929382653 小时前
MobiOffice解锁高级功能版 v15.9.57971 安卓手机doc, docx ppt, .pptx pdf办公软件
智能手机·pdf·powerpoint·wps
爱上妖精的尾巴14 小时前
5-22 WPS JS宏reduce数组的归并迭代应用(实例:提取最大最小值的记录)
服务器·前端·javascript·笔记·wps·js宏
程序员莫小特2 天前
WPS 文字制作电子贺卡
wps·教学日志
lijingguang3 天前
excel和word文件默认用office打开而不是用wps
word·excel·wps
jaray5 天前
word和wps下分别设置签名或图片背景透明色的方法
word·wps
烟锁池塘柳05 天前
【已解决】WPS反复报错“我们遇到了一个无法恢复的问题”的解决方法
办公软件·wps
爱上妖精的尾巴11 天前
5-20 WPS JS宏 every与some数组的[与或]迭代(数组的逻辑判断)
开发语言·前端·javascript·wps·js宏·jsa
揭老师高效办公12 天前
Word和WPS文字如何从特定的页开始编号(页码)?
word·wps
PythonFun15 天前
从零开始,用WPS和DeepSeek打造数字人科普视频
音视频·wps
揭老师高效办公16 天前
Word和WPS文字表格内的文字无法垂直居中?这样设置
word·wps