Word中批量调整表格样式

需求说明：在改之前项目的详设文档，其中表格有600多个，而且表格宽度、样式等杂乱，一个个调整想想就头疼。

在网上搜索了一下批量修改方法，通过宏进行批量处理，亲测可用。

1、进入宏（视图 -> 宏 -> 查看宏(V)  或者  Alt + F8快捷键）

2、输入宏名称，点击【创建】按钮，创建新宏，进入VBA脚本编辑界面

3、在VBA脚本编辑界面，输入脚本调整代码

Dim oDoc As Document
Dim oTable As Table
Set oDoc = Documents.Open("C:\Users\yuwen\我的Word文档.docx")
For Each oTable In oDoc.Tables
oTable.AutoFitBehavior (wdAutoFitWindow)
Next
MsgBox "完成！"

注意：将文中的word文档路径改为自己的文档路径

4、执行运行命令，进行表格自适应即可。