word里的表格批量根据窗口自动调整

Sub www()

    Dim oDoc As Document

    Dim oTable As Table

    Set oDoc = Documents.Open("C:\Users\ilove\Desktop\投标文件整合技术版18.docx")

    For Each oTable In oDoc.Tables

        oTable.AutoFitBehavior (wdAutoFitWindow)

    Next

MsgBox "完成！"

End Sub

下次直接运行这个宏就可以直接调整格式了