Question

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

Answer 1

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

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

Answer 3

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

2. 设置格式。

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

Answer 4

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