一个word文档中，多个表格的批量调整（根据窗口调整表格和添加表格水平线）

Sub 自动调整所有表格()
\'
\' 自动调整所有表格 宏
\'
\'Application.Browser.Target = wdBrowseTable

For i = 1 To ActiveDocument.Tables.Count

   With ActiveDocument.Tables(i)
   .AutoFitBehavior (wdAutoFitWindow) \'根据窗口调整内容
   .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter \'水平居中
   .Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter \'垂直居中
   .Borders(wdBorderHorizontal).LineStyle = wdLineStyleInset \'加水平线
   End With
    
    
    
Next i

End Sub

打开word文档，选择开发工具，点击宏。弹窗之后新建宏，输入以上命令，运行即可。