电脑文件怎么修改表格格式(WPS文字-表格全选-批量修改表格格式)
用WPS文字编辑报告的时候经常会用到批量修改表格样式,网上找了半天多半是没有价值的东西。
1、设置一个表格里的文字需要的样式(或者用里面内置的格式修改一下)
2、先想办法选中所有表格:
在“开发工具”里选择“宏“,随便取个宏名,点编辑,替换为以下代码:
Sub 选择表格()
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、关闭代码窗口,在“开发工具”里选择“宏“,运行这个宏,可以看到所有表格被选中。
4、选择上面设置好的样式。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。