如何批量修改WORD中表格的格式？

Question

如题所述

Answer 1

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

Answer 2

因为表格的数量将近200个左右，我试着逐个调整，单个表格调整下来用时30秒到1分钟不等，由于文档超过了1000页，加上修改时卡顿的时间，逐个调整简直不能再煎熬。
摸索出的快速处理方式如下：
步骤1：选中任意一个需要调整的问题表格，点击“样式--应用样式”

步骤2：应用样式弹窗如下，样式名为正文（可见从文档A粘过来之后变成正文了，怪不得格式乱了），

将样式名修改为“表格样式”，点击新建。

“表格样式”已创建，不过这个时候是默认的样式，可以根据自己的需要点击“修改”进行再次调整。

步骤3：点击上图中的“修改”，将“表格样式”调整为自己满意的样式。点击“格式”，我这里调整了段落和快捷键：

段落设置：左对齐、无缩进、单倍行距