批量设置word表格根据窗口自动调整

打开word文档，开发工具 > 代码 > 宏， 在弹出的窗口如下

宏名填写 www，然后点击创建，弹出窗口如下

删除窗口里的内容，直接把下面这段代码复制进去

Sub www()
Dim oDoc As Document
Dim oTable As Table
Set oDoc = Documents.Open(“E:\123\Doc\数据库结构7.25-1.docx”) ‘指定文件路径
For Each oTable In oDoc.Tables
oTable.AutoFitBehavior (wdAutoFitWindow) ‘根据窗口调整内容
Next
MsgBox “完成！”
End Sub

然后单击圈圈里的那个三角按钮，神奇的效果就产生了.
如果你保存之后再关闭窗口，下次再打开这个word的宏的时候，如下图，这个公式依然存在，这是你只需点击运行按钮就行了。