（精選文檔）world表格寬度批量修個(gè)同頁(yè)面同寬

1、怎么批量修改Word表格的寬度怎么批量修改Word表格的寬度呢。Word表格可根據(jù)窗口自動(dòng)調(diào)整表格寬度，使得所有的表格寬度和頁(yè)面寬度一樣。當(dāng)頁(yè)面設(shè)置了新的頁(yè)邊距后，所有的表格都需要調(diào)整新的寬度?；蛘呶臋n中有許多大大小小的表格，希望寬度全部調(diào)整與頁(yè)寬一樣。下面的方法就非常有用啦。第一步、打開Word文檔，按下【Alt + F11】第二步、在VBA編輯器窗口的左上方，雙擊【ThisDocument】第三步、在右側(cè)選擇【Document】，再在其右側(cè)下拉選擇【Open】第四步、然后在宏代碼編輯窗口中，Document_Open()下面輸入以下代碼Application.Browser.Target

2、= wdBrowseTableFor i = 1 To ActiveDocument.Tables.CountActiveDocument.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.Table

3、s(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ì)齊，就將宏代碼中的水平居中和垂直居中兩行去掉。注意事項(xiàng)VBA是office軟件中強(qiáng)大的自動(dòng)化語(yǔ)言，可以實(shí)現(xiàn)很多自動(dòng)化的處理。如果不喜歡用宏文件，可以將這個(gè)啟用宏的Word文檔另存