如何批量修改WORD中表格的格式?
发布网友
发布时间：2022-04-24 03:07
共1个回答
热心网友
时间：2023-01-30 20:03
WORD中批量修改表格的格式：\x0d\x0a第一步，先用宏将所有表格选中：\x0d\x0aSub 宏1() \x0d\x0a Dim mytable As Table\x0d\x0a Application.ScreenUpdating = False\x0d\x0a For Each mytable In ActiveDocument.Tables \x0d\x0a mytable.Range.Editors.Add wdEditorEveryone \x0d\x0a Next \x0d\x0a ActiveDocument.SelectAllEditableRanges (wdEditorEveryone) \x0d\x0a ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone) \x0d\x0a Application.ScreenUpdating = True\x0d\x0aEnd Sub\x0d\x0a第二步，设置格式。先设置好字体字号，再设置表格属性：右键——表格属性（或者点菜单栏的表格——表格属性）——行，选中“指定高度”，在“行高值是”中选择“固定值”，设定一个适当值。
