批量設(shè)置Word文檔的表格字體樣式及布局

編輯PRD文檔遇到導(dǎo)出的表格字體類型,字體大小,表格自適應(yīng)寬度都不同,如何批量修改?

以下使用VBA腳本進行批量修改,一鍵完成。

使用VBA腳本,請按照以下步驟操作:

1、在Word中,按下?Alt + F11?打開VBA編輯器。

2、在VBA編輯器中,點擊“插入”菜單,然后選擇“模塊”。

3、在新模塊的代碼窗口中粘貼上述代碼。

4、按下?F5?運行腳本。

批量修改Word(.dox,.docx)所有表格的字體、大小和自適應(yīng)窗口寬度的VBA腳本:

Sub SetTableFontAndLayout()

????Dim tbl As Table Dim cell As Cell

????' 遍歷文檔中的所有表格

????For Each tbl In ActiveDocument.Tables

????????' 設(shè)置表格布局為根據(jù)窗口自動調(diào)整

????????tbl.AutoFitBehavior wdAutoFitWindow

????????????' 遍歷表格中的所有單元格

????????????For Each cell In tbl.Range.Cells

????????????' 設(shè)置字體為宋體,大小為五號(10.5磅)

????????????With cell.Range.Font

????????????????.Name = "宋體"

????????????????.Size = 10.5

? ? ? ? ? ? End With

????????Next cell

????Next tbl

End Sub

以上腳本會遍歷文檔中的每個表格,并將每個表格中的所有文本字體設(shè)置為"宋體",大小設(shè)置為"五號",同時將表格的布局設(shè)置為"根據(jù)窗口自動調(diào)整"。

注意:

這個腳本適用于中文Word文檔,如果你的Word文檔使用的是其他語言環(huán)境,可能需要將"宋體"替換為相應(yīng)的字體名稱。

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成,瀏覽時請結(jié)合常識與多方信息審慎甄別。
平臺聲明:文章內(nèi)容(如有圖片或視頻亦包括在內(nèi))由作者上傳并發(fā)布,文章內(nèi)容僅代表作者本人觀點,簡書系信息發(fā)布平臺,僅提供信息存儲服務(wù)。

相關(guān)閱讀更多精彩內(nèi)容

友情鏈接更多精彩內(nèi)容