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

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

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

3、如果表格非常多，需要进行批量调整，就要使用宏工具了。以wps为例，点开发工具-宏，在弹窗中先命名，然后点创建。

4、然后我们再输入代码：

Sub www()

Dim oDoc As Document

Dim oTable As Table

Set oDoc = Documents.Open("路径\文件名.doc")

For Each oTable In oDoc.Tables

oTable.AutoFitBehavior (wdAutoFitWindow)

Next

MsgBox "自动调整表格宽度完成！"

End Sub

其中路径和文件名根据文件存放位置和名称修改。

5、最后点击运行按钮（上图三角“格式”下方的三角符号），就会发现所有表格已经根据窗口宽度自动调整好啦。保存好这个宏，以后遇到类似的情况都可以使用了！