wps 运行宏获取所有的表格

qq_272067912024-11-07 5:09

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

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

wps 运行宏 获取所有的表格

wps 运行宏获取所有的表格