一个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文档，选择开发工具，点击宏。弹窗之后新建宏，输入以上命令，运行即可。