WORD中批量修改表格的格式

WORD中批量修改表格的格式：
第一步，先用宏将所有表格选中：
Sub SelectAllTables() 
     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
第二步，设置格式。先设置好字体字号，再设置表格属性：右键——表格属性（或者点菜单栏的表格——表格属性）——行，选中“指定高度”，在“行高值是”中选择“固定值”，设定一个适当值。