一个word文档中，多个表格的批量调整（根据窗口调整表格和添加表格水平线）
生活随笔
收集整理的這篇文章主要介紹了
一个word文档中，多个表格的批量调整（根据窗口调整表格和添加表格水平线）
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
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文檔，選擇開發工具，點擊宏。彈窗之后新建宏，輸入以上命令，運行即可。
總結
以上是生活随笔為你收集整理的一个word文档中，多个表格的批量调整（根据窗口调整表格和添加表格水平线）的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 2048小游戏 c++
- 下一篇： 练习2-3 输出倒三角图案（打印图案）