怎麼批量修改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文檔另存爲不啓用宏的文檔。