Sub AutoFitTableForWindow()
'  Word宏 - 批量设置表格自动调整
'  AutoFitTableForWindow 
'
'
Dim oDoc As Document
Dim oTable As Table
Set oDoc = Application.ActiveDocument
For Each oTable In oDoc.Tables
oTable.AutoFitBehavior (wdAutoFitWindow)
Next
MsgBox "完成！"

End Sub