Word批量設置表格自動調整

1.說明

通過使用Word的宏功能，
批量設置表格，
根據窗口自動調整表格，
使所有表格的寬度和窗口一樣，
而不用一個一個手動調整表格。

宏是一個批量處理程序命令，
正確地運用它可以提高工作效率。
微軟的office軟件允許用戶編寫，
叫VBA的腳本來增加其靈活性，
進一步擴充它的能力。
如完打開Word同時要使用某個功能，
可以編寫一段稱之為宏的腳本。

2.查看宏

依次點擊：
視圖 -> 宏 -> 查看宏(V)
或者使用快捷鍵查看宏：
Alt + F8

3.新建宏

在查看宏的界面，
為了新建一個宏，
需要先輸入宏名(M)：
AutoFitTableForWindow
然后點擊創建(C):

打開VBA腳本編輯界面：

4.開發宏

初始的VBA腳本不實現任何功能：

Sub AutoFitTableForWindow()
'
' AutoFitTableForWindow 宏
'
'

End Sub

需要開發代碼，
實現打開指定Word文檔，
然后遍歷文檔中的所有表格，
設置根據窗口自動調整表格，
完整腳本內容如下：

Sub AutoFitTableForWindow()
'
' AutoFitTableForWindow 宏
'
'
Dim oDoc As Document
Dim oTable As Table
Set oDoc = Documents.Open("C:\Users\yuwen\我的Word文檔.docx")
For Each oTable In oDoc.Tables
oTable.AutoFitBehavior(wdAutoFitWindow)
Next
MsgBox "完成！"

End Sub

5.運行宏

宏開發完成后，
再次進入查看宏界面，
選擇需要運行的宏，
點擊運行(R)即可：

6.修改宏

只要修改宏里面打開的文檔名稱，
即可在不同的文檔中，
實現自動調整表格寬度的功能。
這個宏只和指定的文檔關聯，
運行宏的時候和當前打開的文檔沒有關系。

Set oDoc = Documents.Open("C:\Users\yuwen\我的Word文檔.docx")

如果腳本有錯誤，比如指定的Word文檔不存，
運行時會彈出錯誤提示：

點擊 調試(D)即可打開VBA腳本編輯器,
定位和修改腳本問題。

7.參考文檔

批量設置word表格根據窗口自動調整
word宏