word表格批量操作——宏

生态笔记2025-04-21 9:17

word中所有表格代码

这个是表格的模板代码

vbscript 复制代码

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

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

vbscript 复制代码

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

代码中wdAutoFitContent可以更改为1。

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

vbscript 复制代码

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

wdAutoFitWindow可以更改为2。

3、所有表格应用样式

vbscript 复制代码

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

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

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

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

vbscript 复制代码

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

5、删除所有表格

vbscript 复制代码

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

仅对选中表格执行的代码

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

vbscript 复制代码

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

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

vbscript 复制代码

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

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