WPS 使用宏操作 word里面的所有表

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

2、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