Attribute VB_Name = "CreateNewMacros"
Sub www()Dim oDoc As DocumentDim oTable As TableSet oDoc = Documents.Open("C:\Users\测试用例\1.doc") '文档路径For Each oTable In oDoc.TablesoTable.AutoFitBehavior (wdAutoFitWindow) '根据窗口调整内容Next
MsgBox "完成！"
End Sub

注：代码来自网络

1.打开word

2.点击开发工具-----宏（ 如果【宏】显示为灰色，需参考https://mp.csdn.net/postedit/102366698开启宏功能。）

3.随便输入宏名称点击创建

4.将开头的代码粘贴到代码框中,注意修改路径为要修改的文件路径

5.点击执行，等待完成即可

以上就是批量让word中的所有表格统一根据窗口自动调整的方法。

注意：这种批量修改后最好再检查一下，有可能部分表格因为某种原因未实现居中效果，需要手动调整。