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 = TrueEnd Sub第二步,设置格式。先设置好字体字号,再设置表格属性:右键——表格属性(或者点菜单栏的表格——表格属性)——行,选中“指定高度”,在“行高值是”中选择“固定值”,设定一个适当值。