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

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

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

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