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

相关推荐
gusijin1 天前
如何删除此电脑上的迅雷下载、WPS云盘、百度网盘
wps
怜渠客3 天前
Word/WPS 删除最后一页空白页,且保持前面布局样式不变
wps
一入程序无退路4 天前
wps批量修改字体
wps
lovely_nn4 天前
wps excel 常用操作
excel·wps
摇滚马侬6 天前
01 ubuntu中wps桌面快捷键无法使用
wps
杜大哥6 天前
wps打开的excel如何插入提示框?
excel·wps
取个好名称6 天前
在线查看【免费】 dcm、drawio,dcm wps文件格式网站
wps·draw.io
玥老师7 天前
Excel/WPS表格中图片链接转换成对应的实际图片
excel·wps
Silence4Allen12 天前
Ubuntu 安装WPS Office
linux·ubuntu·wps
妃衣13 天前
文本纠错WPS插件:提升文档质量的利器
wps