表格根据窗口自动调整，word利用宏批量处理表格

Sub 表格根据窗口自动调整()
Dim oDoc As Document
Dim oTable As Table
Set oDoc = Documents.Open("C:\Users\Administrator\Desktop\安全加固手册.docx")
For Each oTable In oDoc.Tables
oTable.AutoFitBehavior (wdAutoFitWindow)
Next
MsgBox "完成！"

End Sub