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

相关推荐
揭老师高效办公2 天前
在Word和WPS文字的表格中快速输入连续的星期、月、日
word·wps
小雪人8285 天前
wps的excel如何转为谷歌在线表格
excel·wps
揭老师高效办公6 天前
在PowerPoint和WPS演示让蝴蝶一直跳8字舞
powerpoint·wps
LAM LAB6 天前
【WPS】WPSPPT 快速抠背景
wps
揭老师高效办公6 天前
PowerPoint和WPS演示如何在放映PPT时用鼠标划重点
powerpoint·wps
揭老师高效办公6 天前
PowerPoint和WPS演示如何循环放映PPT
powerpoint·wps
l1t18 天前
DeepSeek辅助编写的将xlsx格式文件中sheet1.xml按需分别保留或去掉标签的程序
xml·python·excel·wps·xlsx
l1t21 天前
利用DeepSeek辅助WPS电子表格ET格式分析
人工智能·python·wps·插件·duckdb
skywalk81631 个月前
Ubuntu24.04桌面版安装wps
linux·ubuntu·wps
阿幸软件杂货间1 个月前
小黑课堂计算机一级WPSOffice题库安装包1.44_Win中文_计算机一级考试_安装教程
wps