Word中怎么批量修改所有表格样式 | 您所在的位置:网站首页 › 利用vba编程批量将word里表格样式统一 › Word中怎么批量修改所有表格样式 |
适用于在有很多表格的时候,想一次性修改所有表格的样式。 比如说,我这里有3张表格: 怎么做呢 1.先把开发工具菜单调出来,开发工具菜单默认情况下不在WORD中菜单栏显示,需要自己调。 文件 > 选项 > 自定义功能区 > 勾选开发工具 就有了 2.利用 宏 选择所有表格 点击 开发工具 > Visual Basic 选择 "插入" > “模块” 将下列代码复制进去(该宏的主要作用是,可以让你一次选中文档中所有的表格) 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 Sub3.关掉窗口,选择开发工具中的 宏 ,运行刚才插入的 宏 ,即可选择所有表格 选中了所有表格 4.修改样式,所有表格都会改 例如:修改磅值、字体等: 修改居中、行距等: 修改样式等:
这样的话,基本能满足批量修改表格的需求了,只有一些只修改表格部分属性而不是整体属性的需求做不到(例如只修改标题行)。在工作量较大的情况下使用这种方法能节省非常多的时间,还更加准确,不会遗漏。
|
CopyRight 2018-2019 实验室设备网 版权所有 |