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文檔另存爲不啓用宏的文檔