word 批量根据表格内容调整宽度 宏

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