实现同时将一个word文档中的所有表格执行“自动调整——根据窗口调整表格”操作

 Sub www()
    Dim oDoc As Document
    Dim oTable As Table
    Set oDoc = Documents.Open("D:\test\Sr.doc") '指定文件路径
    For Each oTable In oDoc.Tables
        oTable.AutoFitBehavior (wdAutoFitWindow) '根据窗口调整内容
    Next
MsgBox "完成！"
End Sub