掃描的圖片插入word中太大了，影響網路傳輸，手工壓縮的話，又不大方便，想了下辦法，通過巨集來操作比較可行，網上找了些程式碼，測試通過。

Sub CompressPic()	'壓縮word中嵌入的所有圖片，

SendKeys "w", False
SendKeys "{ENTER}", False
Word.CommandBars("Picture").FindControl(ID:=6382).Execute

End Sub

將以上程式碼拷貝到word巨集中執行即可實現自動壓縮所有圖片的功能。但是這樣還不夠智慧，不知道什麼叫“巨集”的人，你讓他執行，他啥也不懂，那怎麼辦？

好辦，在關閉word的時候讓它自動執行這段巨集，咋整？

網上搜了些資料，整理如下：

通過為一個巨集賦予某個特殊的名稱，就可在執行某項操作（例如啟動 Word 或開啟文件）時自動執行巨集。Word 將下列名稱識別為自動巨集，或稱
“auto”巨集。

AutoExec：啟動 Word 或載入全域性模板時
AutoNew：每次新建文件時
AutoOpen：每次開啟已有文件時
AutoClose：每次關閉文件時
AutoExit：退出 Word 或解除安裝全域性模板時
當以下條件之一為真時，將識別程式碼模組中的自動巨集。
* 模組在自動巨集（如 AutoExec）之後命名，並且包含一個名為“Main”的過程。 
* 任何模組中的過程在自動巨集之後命名。 

與其他巨集一樣，自動巨集也可以保存於 Normal 模板、其他模板或文件中。要讓自動巨集執行，它必須位於活動文件的 Normal 模板中，或活動文件
選用的模板中。

唯一例外的是 AutoExec 巨集，它只有儲存於以下位置時才可自動執行：Normal 模板、通過“模板和載入項”對話方塊全域性載入的模板、或由
“Startup”資料夾指定的資料夾中的全域性模板。

在命名衝突的情況下（多個自動巨集名相同），Word 將執行上下文中最近的自動巨集。例如，如果同時在文件及其附加的模板中建立了 AutoClose 
巨集，則僅執行文件中的自動巨集。如果在 Normal 模板中建立了 AutoNew 巨集，只有當文件或其附加模板中沒有名為 AutoNew 的巨集時，該自動巨集才
能執行。

注：按住 Shift 可以終止自動巨集的執行。例如，基於包含 AutoNew 巨集的模板新建文件時，按住 Shift 可終止 AutoNew 巨集的執行。方法是：按
住 Shift，單擊（“檔案”選單）“新建”對話方塊中的“確定”按鈕，並在顯示新文件前持續按住 Shift。如果執行一個巨集時有可能觸發自動
巨集，(這種情況,我沒遇過!)可用下列指令終止自動巨集的執行：WordBasic.DisableAutoMacros
 

 所以，要想在word關閉時，自動執行上面那段“壓縮圖片”巨集，只需要把巨集名稱由“CompressPic”改為“AutoClose”即可。以上程式碼測試通過，可用。