Question

WORD可以批量修改表格吗？

一份WORD文档包含N页表格，如图1（都是复制的，除数值外表格格式都一样）。现在需要把这个表修改一下如图2，增加2个单元格。有没有批量实现的方法？ 一页页手动改的崩溃。。。





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

Sub SplitTables()
For pi = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(pi).Cell(1, 5).Split NumRows:=1, NumColumns:=3
DoEvents
Next
MsgBox "本文档所有表格指定单元格拆分完毕！" & vbCrLf & "更多批量功能，请参见百宝箱 10.0！", vbInformation + vbOKOnly, "消息"
End Sub