一个word文档中，多个表格的批量调整（根据窗口调整表格和添加表格水平线）
生活随笔
收集整理的這篇文章主要介紹了
一个word文档中，多个表格的批量调整（根据窗口调整表格和添加表格水平线）
小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
Sub 自動(dòng)調(diào)整所有表格()
'
' 自動(dòng)調(diào)整所有表格 宏
'
'Application.Browser.Target = wdBrowseTableFor i = 1 To ActiveDocument.Tables.CountWith ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) '根據(jù)窗口調(diào)整內(nèi)容.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中.Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中.Borders(wdBorderHorizontal).LineStyle = wdLineStyleInset '加水平線End WithNext iEnd Sub
打開word文檔，選擇開發(fā)工具，點(diǎn)擊宏。彈窗之后新建宏，輸入以上命令，運(yùn)行即可。
總結(jié)
以上是生活随笔為你收集整理的一个word文档中，多个表格的批量调整（根据窗口调整表格和添加表格水平线）的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 2048小游戏 c++
- 下一篇： 练习2-3 输出倒三角图案（打印图案）