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
标签:里面,wdEditorEveryone,表格,tempTable,WPS,ActiveDocument,word,Sub From: https://www.cnblogs.com/zhuguangzhe/p/18530463