word表格批量操作——宏

word中所有表格代码

这个是表格的模板代码

Sub 表格通用代码()
For i = ActiveDocument.Tables.Count To 1 Step -1
    ActiveDocument.Tables (i)
Next
End Sub

1、根据内容自动调整表格

Sub 表格适用内容()
For i = ActiveDocument.Tables.Count To 1 Step -1
    ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent)
Next
End Sub

代码中wdAutoFitContent可以更改为1。

2、根据窗口自动调整表格

Sub 表格适用窗口大小()
For i = ActiveDocument.Tables.Count To 1 Step -1
    ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow)
Next
End Sub

wdAutoFitWindow可以更改为2。

3、所有表格应用样式

Sub 三线表样式()
For i = ActiveDocument.Tables.Count To 1 Step -1
    ActiveDocument.Tables(i).Style = "三线表"
Next
End Sub

这个代码运行成功的前提是样式中有“三线表”这个样式。

4、通过录制宏，自定义代码

可以通过录制宏修改一个选中的表格，然后把代码放进去，统一修改其他表格。

Sub 表格统一格式()
For i = ActiveDocument.Tables.Count To 1 Step -1
    ActiveDocument.Tables(i).Select
    [这后面放录制的代码]
Next
End Sub

5、删除所有表格

Sub 删除表格()
For i = ActiveDocument.Tables.Count To 1 Step -1
    ActiveDocument.Tables (i).Delete
Next
End Sub

---

仅对选中表格执行的代码

这个是选中区域表格的模板代码

Sub 选中区表格通用代码()
For i = Selection.Tables.Count To 1 Step -1
    Selection.Tables (i)
Next
End Sub

如：选中区表格适应窗口的代码：

Sub 选中区表格适应窗口()
For i = Selection.Tables.Count To 1 Step -1
    Selection.Tables (i).AutoFitBehavior (wdAutoFitWindow)
Next
End Sub

先选中一部分内容，然后运行代码，这样仅对选中区域范围内的表格进行修改。

---

参考：【宏入门，不妨从现在开始】 https://www.bilibili.com/video/BV1yV411P7rB/?share_source=copy_web&vd_source=e2338c063cd49188a452094eb0b6f740