在word里如何一次性调整多页表格格式?

Question

在word的每页有个N行N列的表格,有个几十页的,怎么一次性调整表格,比如列宽,总不可能一个个地去调吧,怎么办,高手赐教啊!
拜托说详细点了,录制宏如何操作,俺实在菜鸟啊,拜托拜托啦!!

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

通用代码：

Sub CenterTable()
Application.Browser.Target = wdBrowseTable

For i = 1 To ActiveDocument.Tables.Count

'调整行高
ActiveDocument.Tables(i).Rows.Height = 40
'调整行宽
ActiveDocument.Tables(i).Columns.Width = 40

Next i
End Sub

1.统一表格的单元格为：40*40
2.打开文档，工具--VB编辑器--ThisDocument，粘贴以上代码
3.F5执行

不懂可以Hi我本回答被提问者采纳

Answer 3

用Ctrl把所有的表格都选上，然后对着选定的表格点右键----表格属性，在里面选自己想要的行高和列宽就行了。

Answer 4

可以考虑录制宏来自动化批量处理