word最上栏选择“开发工具”选择Visual Basic1、将文档中的所有表格均设置为“根据窗口调整表格”Sub AutoFitAllTablesToWindow() Dim tbl As Table For Each tbl In ActiveDocument.Tables tbl.AutoFitBehavior (wdAutoFitWindow) Next tbl MsgBox 已将所有表格设置为「根据窗口调整表格」 End Sub