怎么批量修改Word表格的寬度

怎么批量修改Word表格的寬度

　　怎么批量修改Word表格的寬度呢。Word表格可根據窗口自動調整表格寬度，使得所有的表格寬度和頁面寬度一樣。當頁面設置了新的頁邊距后，所有的表格都需要調整新的寬度。或者文檔中有許多大大小小的表格，希望寬度全部調整與頁寬一樣。下面的方法就非常有用啦。

　　第一步、打開Word文檔，按下【Alt + F11】

　　第二步、在VBA編輯器窗口的左上方，雙擊【ThisDocument】

　　第三步、在右側選擇【Document】，再在其右側下拉選擇【Open】

　　第四步、然后在宏代碼編輯窗口中，Document_Open()下面輸入以下代碼

　　Application.Browser.Target = wdBrowseTable

　　For i = 1 To ActiveDocument.Tables.Count

　　ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent) '根據內容自動調整表格

　　ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) '根據窗口自動調整表格

　　ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中

　　ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中

　　Next i

　　第五步、點擊左上方的保存圖標。

　　第六步、在彈出的窗口中，點擊【否】，如果文檔已經啟用了宏，就不會出現這個提示對話框了。

　　第七步、將文檔另存為【啟用宏的 Word 文檔】，然后關閉VBA編輯器和當前文檔。

　　第八步、找到你剛剛保存的啟用宏的Word文檔，雙擊打開，啟用宏的Word文檔的圖標上，會有一個感嘆號。

　　第九步、點擊【啟用內容】，宏代碼開始運行。

　　第十步、您會發現，Word中的所有表格，都會自動調整其寬度與頁面寬度一樣啦，而且表格中的內容都居中對齊了。如果不希望居中對齊，就將宏代碼中的水平居中和垂直居中兩行去掉。

　　注意事項

　　VBA是office軟件中強大的自動化語言，可以實現很多自動化的處理。

　　如果不喜歡用宏文件，可以將這個啟用宏的Word文檔另存為不啟用宏的文檔。

【怎么批量修改Word表格的寬度】相關文章：