快速修改多个工作表的格式名称,如何批量修改工作表名称

首页 > 实用技巧 > 作者:YD1662023-04-30 10:43:47

用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、选择上面设置好的样式。

栏目热文

文档排行

本站推荐

Copyright © 2018 - 2021 www.yd166.com., All Rights Reserved.