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