使用VBA统一word文档表格样式

在多人协作的word文档中，经常会出现同一性质的内容格式不一致的情况。要快速统一同一性质的内容的格式，最佳实践无疑是使用样式功能。但是对于表格而言，对表格样式的编辑无法做到使表格在页面居中，而且对于标题行重复这样的操作，需要指定表格的标题行区域。因此，文档中表格数量太多时，要快速统一所有表格的格式，最佳实践是结合VBA来进行自动化操作。以下代码可以将文档中的全部表格统一为同一种样式，所有表格在页面居中，同时将表格的首行区域设置为标题行。这里说的首行区域并不是只有第一行。举例来说，假设有一个表格有三列，其中第一列没有合并，第二列最上面三个单元格被合并为一个单元格，第三列最上面四个合并为一个单元格，那么首行区域在第一列包含了最上面4个单元格，第二列包含了最上面2个单元格，第三列则包含了最上面的一个单元格。

Sub 全文表格风格统一()Dim aTable As Table'宏执行过程中停止屏幕滚动，可加快宏执行速度Application.ScreenUpdating = FalseFor Each aTable In ActiveDocument.Tables'设置表格样式aTable.Style = "网格型"aTable.Range.Cells(1).SelectWith Selection'设置表格在页面居中.Tables(1).Rows.Alignment = wdAlignRowCenter'设置表格标题行区域.Rows.HeadingFormat = TrueEnd WithNext'恢复屏幕滚动Application.ScreenUpdating = True
End Sub

上面的代码中，表格样式的名称可以用任意一个word中已有的样式名称，而不必管样式的格式是什么样的。执行完上面的宏后，再右键点击该样式名称，修改该样式包含的边框底纹标题等各种格式，即可完成全部表格的格式修改。如果不知道怎么修改表格样式，可以参看这个视频：https://www.bilibili.com/video/BV1EA411V7h7/，里面有直观操作。另外，如果文档包含的表格实在太多，以至于宏的执行时间太长，等待执行完毕的过程中让人怀疑word是不是已经崩溃，那么可以考虑分次执行。先将上面代码中的第五行

For Each aTable In ActiveDocument.Tables

修改为

For Each aTable In Selection.Tables

然后再选择文档的一部分，完成选择后执行宏，即可完成已选择部分的表格样式统一，再在剩余文档中又选择一部分执行宏，直至完成全部文档。

使用VBA统一word文档表格样式相关推荐

VBA读取html表格内容,科学网—VBA读取word文档表格中table的cell的text文本 - 付安民的博文...
VBA读取word文档表格中table的cell的text文本已有 11546 次阅读 2010-6-4 16:40 |个人分类:学习篇|系统分类:科研笔记 Sub Readtable() Dim ...
使用poi给word文档表格中添加样式
32.使用poi给word文档表格中添加样式 File fileNew = new File(exportPath + exportName + ".docx");InputStr ...
利用VBA实现word文档手写体打印
利用VBA实现word文档手写体打印一.缘起二.实现 1.下载手写字体 2.导入书写字体 3.效果展示 4.利用VBA优化 5.优化后效果三.附件 1.A4纸打印效果 2.信纸打印效果 3.完整 ...
Word文档表格中插入图片无法完整显示解决办法
如上图所示,Word文档表格中插入图片却只显示很窄一条边解决办法:选中图片,菜单栏上点击段落右方小箭头扩展项选择单倍行距,即可完整显示图片
VBA多个WORD文档表格数据写入到EXCEL中
工作提示: 1.当前目录下有多个相同的WORD表格: 2.在EXCEL中新建VBA项目: 3.将WORD表格中的数据读取写入到一条EXCEL记录中去. '目录下多个WORD表格批量处理 Sub Rea ...
用VBA在Word文档中每页页眉插入返回文档目录中相应位置的超链接
[说明]此文中在页眉插入跳转到目录项的超链接的代码几经改进,但改进后并未删除改进之前的代码,是为了有个对比利于学习.如果想节约时间,该步骤可直接查看该部分最后一个代码块. 对于Word长文档,标准做法 ...
Python 技术篇-利用Office VBA实现word文档转化为pdf文档实例演示
# -*- coding: UTF8 -*- from win32com.client import *def switch_pdf(path, name):'''作用:将word文档转化为pdf文档 ...
SpringBoot整合Freemarker导出word文档表格
freemarker模板里面的template.process()方法里传入的第一个参数Object类型,如果是一个实体类对象在模板上怎么进行渲染,将实体类的值取出 freemarker会调用Obje ...
通过VBA导出word文档中的图片
一.问题重述: 工作中,经常有同事把新闻的照片贴在word文档中发过来,需要把照片一张张的转存成图片. 二.原始方法: 在文档中的照片上,右键,图片另存为-- 把文档,按F12,另存为网页文件,然后在 ...

使用VBA统一word文档表格样式

使用VBA统一word文档表格样式相关推荐

最新文章

热门文章