word中100多张表格怎么批量修改格式?

发布网友发布时间：2022-04-24 06:49

共3个回答

热心网友时间：2022-06-17 04:23

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

热心网友时间：2022-06-17 04:23

你好！
一个是用宏命令，比较复杂，我也不会用，
我的方法是：SHIFT加选所有表格，统一调格式。
希望对你有所帮助，望采纳。

热心网友时间：2022-06-17 04:23

先用宏将所有表格选中：
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

设置格式。

先设置好字体字号，再设置表格属性：右键——表格属性（或者点菜单栏的表格——表格属性）——行，选中“指定高度”，在“行高值是”中选择“固定值”，设定一个适当值。