Sub 自動調整所有表格() ' ' 自動調整所有表格 宏 ' 'Application.Browser.Target = wdBrowseTableFor i = 1 To ActiveDocument.Tables.CountWith ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) '根據窗口調整內容.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中.Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中.Borders(wdBorderHorizontal).LineStyle = wdLineStyleInset '加水平線End WithNext iEnd Sub

打開word文檔，選擇開發工具，點擊宏。彈窗之后新建宏，輸入以上命令，運行即可。

轉載于:https://www.cnblogs.com/AlienXu/p/6875970.html

總結

以上是生活随笔為你收集整理的一个word文档中，多个表格的批量调整（根据窗口调整表格和添加表格水平线）...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。