編按：

本文主要介紹了Word文檔使用VBA代碼批量居中對齊表格及表格中內(nèi)容的方法。一起來看看吧！

哈嘍，大家好！

今天跟大家分享一個文檔中所有表格與表格內(nèi)容批量居中對齊的案例。

因為小伙伴源文件保密，為了給大家演示，隨機(jī)模擬了一些文字和表格混搭的內(nèi)容作為演示案例如下圖：

選中表格，按Ctrl+E快捷鍵，依次點擊【布局】-【水平居中】，重復(fù)操作至文檔中所有表格設(shè)置結(jié)束。如下圖：

如果沒有更高效的辦法，那么上面的常規(guī)辦法就是大家完成任務(wù)最好的方法。但今天我要分享的是更高效的方法：使用VBA代碼來解決。

一、用VBA代碼批量居中對齊表格及表格中內(nèi)容

1.在【開發(fā)工具】選項卡中找到【Visual Basic】按鈕進(jìn)入VBE編輯器，插入一個模塊，進(jìn)入編輯區(qū)域粘貼表格居中對齊代碼并運行。

以下橫線中為表格居中對齊代碼：

___________________________________________________

Sub 表格居中對齊()

    Dim biaoge As Table

    For Each biaoge In ActiveDocument.Tables

        biaoge.Rows.Alignment = wdAlignRowCenter

    Next biaoge

    Set biaoge = Nothing

End Sub

___________________________________________________

代碼解析：Table是表格對象的意思，Rows代表表格中的所有行。Rows集合的Alignment屬性用于設(shè)置整個表格在頁面中的對齊方式。（wdAlignRowCenter是居中對齊；wdAlignRowLeft是左對齊；wdAlignRowRight是右對齊）代碼的靈魂是在于For Each循環(huán)，這個是批量處理表格的核心部分。

2.設(shè)置完表格全部居中對齊后，接著將表格中所有的文字全部設(shè)置水平居中。在剛剛的模塊代碼區(qū)域再粘貼表格內(nèi)容文字居中對齊代碼并運行。

以下橫線中為表格內(nèi)容文字居中對齊代碼：

___________________________________________________

Sub 表格內(nèi)容文字居中對齊()

    Dim biaoge As Table

    For Each biaoge In ActiveDocument.Tables

        biaoge.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

        biaoge.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter

    Next biaoge

End Sub

___________________________________________________

這些代碼并不需要死記硬背，會錄制宏即可，請大家繼續(xù)往后看。

二、錄制宏

初次接觸的小伙伴可能對宏比較陌生，不知道什么是宏，接下來，一起錄制一個宏看看。

按照常規(guī)的操作錄制出宏代碼后會發(fā)現(xiàn)其中的代碼和剛剛設(shè)置的代碼幾乎是一樣的，如下圖：

也就是說，掌握了錄制宏就可以把一些操作轉(zhuǎn)換成代碼，同時結(jié)合VBA中的循環(huán)和對象來提升工作效率。

好了，以上就是今天跟大家分享的內(nèi)容，感謝大家耐心看完，希望大家能夠喜歡，別忘了分享哦~

本期教程就到這里，我們下期再見！

Word學(xué)習(xí)交流請加QQ群：816626786