word怎樣批量修改表格的寬度
word怎樣批量修改表格的寬度
Word表格可根據(jù)窗口自動(dòng)調(diào)整表格寬度，使得所有的表格寬度和頁(yè)面寬度一樣。當(dāng)頁(yè)面設(shè)置了新的頁(yè)邊距后，所有的表格都需要調(diào)整新的寬度?；蛘呶臋n中有許多大大小小的表格，希望寬度全部調(diào)整與頁(yè)寬一樣。那么下面就由學(xué)習(xí)啦小編為您分享下批量修改Word表格的寬度的技巧，希望能幫助您。
批量修改表格的寬度的方法
第一步：打開Word文檔，按下【Alt + F11】
第二步：在VBA編輯器窗口的左上方，雙擊【ThisDocument】
第三步：在右側(cè)選擇【Document】，再在其右側(cè)下拉選擇【Open】
第四步：然后在宏代碼編輯窗口中，Document_Open()下面輸入以下代碼
Application.Browser.Target = wdBrowseTable
For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent) '根據(jù)內(nèi)容自動(dòng)調(diào)整表格
ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) '根據(jù)窗口自動(dòng)調(diào)整表格
ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中
Next i
第五步：點(diǎn)擊左上方的保存圖標(biāo)。
第六步：在彈出的窗口中，點(diǎn)擊【否】，如果文檔已經(jīng)啟用了宏，就不會(huì)出現(xiàn)這個(gè)提示對(duì)話框了。
第七步：將文檔另存為【啟用宏的 Word 文檔】，然后關(guān)閉VBA編輯器和當(dāng)前文檔。
第八步：找到你剛剛保存的啟用宏的Word文檔，雙擊打開，啟用宏的Word文檔的圖標(biāo)上，會(huì)有一個(gè)感嘆號(hào)。
第九步：點(diǎn)擊【啟用內(nèi)容】，宏代碼開始運(yùn)行。
第十步：您會(huì)發(fā)現(xiàn)，Word中的所有表格，都會(huì)自動(dòng)調(diào)整其寬度與頁(yè)面寬度一樣啦，而且表格中的內(nèi)容都居中對(duì)齊了。如果不希望居中對(duì)齊，就將宏代碼中的水平居中和垂直居中兩行去掉。