XZCoder

Sub zdtzbg()

Dim oDoc As Document

Dim oTable As Table

Set oDoc = Documents.Open("文件全路径")

For Each oTable In oDoc.Tables

oTable.AutoFitBehavior (wdAutoFitWindow)

Next

MsgBox "完成！"

End Sub