WORD中批次修改表格的格式：

第一步，先用宏將所有表格選中：

Sub 宏1()

Dim mytable As Table

Application.ScreenUpdating = False

For Each mytable In ActiveDocument.Tables

mytable.Range.Editors.Add wdEditorEveryone

Next

ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)

ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)

Application.ScreenUpdating = True

End Sub

第二步，設定格式。先設定好字型字號，再設定表格屬性：右鍵——表格屬性（或者點選單欄的表格——表格屬性）——行，選中“指定高度”，在“行高值是”中選擇“固定值”，設定一個適當值。