Word批量設置表格寬度自動適應頁面寬度

怎么批量修改Word表格的寬度呢。Word表格可根據窗口自動調整表格寬度，使得所有的表格寬度和頁面寬度一樣。

 

當頁面設置了新的頁邊距后，所有的表格都需要調整新的寬度。或者文檔中有許多大大小小的表格，希望寬度全部調整與頁寬一樣。下面的方法就非常有用啦

步驟閱讀

 

百度經驗:jingyan.baidu.com

工具/原料

• Word 2013

百度經驗:jingyan.baidu.com

方法/步驟

1. 1

   打開Word文檔，按下【Alt + F11】 

   步驟閱讀
2. 2

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

   步驟閱讀
3. 3

   在右側選擇【Document】，再在其右側下拉選擇【Open】

   步驟閱讀
4. 4

   然后在宏代碼編輯窗口中，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

   步驟閱讀
5. 5

   點擊左上方的保存圖標

   步驟閱讀
6. 6

   在彈出的窗口中，點擊【否】

    

   如果文檔已經啟用了宏，就不會出現這個提示對話框了

   步驟閱讀
7. 7

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

   步驟閱讀
8. 8

   找到你剛剛保存的啟用宏的Word文檔，雙擊打開

   啟用宏的Word文檔的圖標上，會有一個感嘆號

   步驟閱讀
9. 9

   點擊【啟用內容】，宏代碼開始運行

   步驟閱讀
10. 10

    您會發現，Word中的所有表格，都會自動調整其寬度與頁面寬度一樣啦

     

    而且表格中的內容都居中對齊了。

     

    如果不希望居中對齊，就將宏代碼中的水平居中和垂直居中兩行去掉

    步驟閱讀
    END

百度經驗:jingyan.baidu.com

注意事項

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

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