word如何批量根据窗口调整表格宽度

1、下面这个word中包含了大量单独分开的表格。我们调整增宽了页边距，可以看到表格不为所动，已经超出了页边距的范围，如果打印就会吞掉超出的内容。

2、如果只有一两个表格，可以手动调整。方法是选中表格，右键-自动调整-根据窗口调整表格。

4、然后我们再输入代码：Sub www()Dim oDoc As DocumentDim oTable As TableSet oDoc = 肛舀辨乔Documents.Open("路径\文件名.doc")For Each oTable In oDoc.TablesoTable.AutoFitBehavior (wdAutoFitWindow)NextMsgBox "自动调整表格宽度完成！"End Sub其中路径和文件名根据文件存放位置和名称修改。