批量设置word中的表格格式

需求：有一份word文档，里面有上千张表格，需要统一所有表格的大小、字体、字号等格式。

难点：表格太多，一张一张的设置格式太费时间，需要进行批量设置，这里要使用到VB的宏。

步骤：

1、打开word中“开发工具”选项；

2、创建一个选择所有表格的宏，代码如下：

Sub 选取所有表格()
     Dim T As Table
     Application.ScreenUpdating = False
     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
     For Each T In ActiveDocument.Tables
         T.Range.Editors.Add wdEditorEveryone
     Next
     ActiveDocument.SelectAllEditableRanges wdEditorEveryone
     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
     Application.ScreenUpdating = True
End Sub

3、保存宏，然后运行，这时会自动选中word中的所有表格，然后找到表格工具，设置表格相关属性，所有的表格将会统一修改；

4、创建一个设置表格里面字体、字号的宏，脚本如下：

Sub 批量调整表格字体字号()    
    For i = 1 To ActiveDocument.Tables.Count  For循环，从第一个表到最后一个表循环；Tables.Count文档内的表格数量
        ActiveDocument.Tables(i).Select  从第一个表格开始逐个选中
        Selection.Font.Name = "宋体"  设置选中表格的字体
        Selection.Font.Size = 10.5  是指选中表格的字号
    Next
End Sub

5、执行宏“批量调整表格字体字号”，word中的所有表格字体将被设置为宋体、10.5（即五号字体）。