Private Sub Workbook_BeforeClose(Cancel As Boolean)
A = Sheets("Sheet1").Range("A1") '假定工作表1的A1單元格。必需指定工作表名。
B = ThisWorkbook.Path
C = ThisWorkbook.Name
D = B & "\" & A & ".xls" '如果妳的Excel版本是2007，則後綴名改為.xlsx
E = B & "\" & C
ActiveWorkbook.SaveAs Filename:=D, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Kill E '本行刪除原有文件
End Sub
2、關閉文件時，文件會被自動根據設置的情況進行改名。
Word提供了“自動保存”功能，可以幫助用戶在發生斷電、死機等故障時恢復尚未保存的工作成果。但是，有時在實際工作中妳會遇到這樣的尷尬：在尚未保存編輯工作的情況下，妳關閉了Word，此時Word會彈出壹個對話框，詢問是否保存更改，本應單擊“是”按鈕，然而妳卻鬼使神差地單擊了“否”按鈕，結果妳辛辛苦苦幾個小時的工作成果頃刻間化為烏有，因為這時Word自動保存的工作成果也將不會被保存。痛心疾首吧！其實，妳可以創建壹個能夠在關閉Word時對文檔進行保存操作的自動宏，即可防止這種意外的發生。我們就以Word2007為例，談壹談這壹思路的具體實現過程。
認識Word宏和自動宏
在Word中，宏是壹系列命令和指令的組合，可以作為單個命令執行來自動完成某項任務。
在創建宏時，通過為壹個宏賦予某個特殊的名稱，就可在執行某項操作（例如啟動Word或打開文檔）時自動運行宏。Word將上圖所示名稱識別為自動宏，或稱“auto”宏。
為使宏自動運行，它必須位於活動文檔的Normal模板中，或活動文檔選用的模板中。唯壹例外的是AutoExec宏，它只有存儲於以下位置時才可自動運行：Normal模板、通過“模板和加載項”對話框全局加載的模板或由“Startup”文件夾指定的文件夾中的全局模板。在命名沖突的情況下（多個自動宏名相同），Word將運行最近的上下文中的自動宏。例如，如果同時在文檔及其附加的模板中創建了AutoClose宏，則僅執行文檔中的自動宏。如果在Normal模板中創建了AutoNew宏，只有當文檔或其附加的模板中沒有名為AutoNew的宏時，該自動宏才能運行。
請“開發工具”出山
與以前Word版本不同，在Word2007中要編寫宏、運行以前錄制的宏或創建與Word程序壹起使用的應用程序，應該顯示“開發工具”選項卡。以下操作可請“開發工具”選項卡出山：
第壹步：單擊“Microsoft Office按鈕”，然後單擊“Word選項”。
第二步：單擊“常用”，在“使用Word時采用的首選項”之下，選中“在功能區顯示‘開發工具’選項卡”復選框。
第三步：單擊“確定”按鈕即可看到效果。
錄制自動保存宏
由前面的自動宏名稱可知AutoClose宏會在關閉文檔時自動運行，以下我們宏錄壹個AutoClose宏，並賦予該宏保存文檔的功能：
第壹步：在“開發工具”選項卡上的“代碼”組中，單擊“錄制宏”。
第二步：在“宏名”框中，鍵入宏名稱“AutoClose”。如果鍵入的新宏的名稱與Word中的內置宏名稱相同，則新宏操作將替換內置宏。若要查看內置宏列表，請在“開發工具”選項卡的“代碼”組中單擊“宏”。然後，在“宏的位置”列表中，單擊“Word命令”。
第三步：在“將宏保存在”框中，單擊要將宏保存在其中的模板或文檔，為使該宏對全部文檔有效，請選擇“所有文檔（Normal.dotm）”。
第四步：在“說明”框中，鍵入對該宏的描述，比如“關閉時對文檔進行保存”。
第五步：單擊“確定”按鈕，開始錄制宏。
第六步：單擊快速訪問工具欄中的“保存”按鈕。在“開發工具”選項卡上的“代碼”組中，單擊“停止錄制”。之後，當使用Word編輯文檔時，每次關閉文檔或退出Word，AutoClose宏會自動運行對文檔進行保存操作。如果是尚未命名的新文檔，將彈出“另存為”對話框，以便用戶為文檔命名。
編輯AutoClose宏
以上錄制宏的操作是假設Word2007的Normal.dotm模板中尚不存在AutoClose宏，如果該宏已經存在，那麽妳可以對該宏進行編輯，在其中加上保存文檔的代碼即可，具體操作如下：
第壹步：在“開發工具”選項卡上的“代碼”組中，單擊“宏”。
第二步：在“宏名”列表中，選擇要編輯的宏的名稱“AutoClose”。如果該宏沒有出現在列表中，請在“宏的位置”列表中選擇“所有的活動文檔和模板”。然後，單擊“編輯”
第三步：在代碼窗口加上以下代碼：
ActiveDocument.Save
第四步：：單擊工具欄中的“保存”按鈕，然後單擊“文件”菜單中的“關閉並返回到Microsoft Word”。
刪除AutoClose宏
或許壹段時間之後，妳又不再需要這個AutoClose宏了，以下的操作可將該宏刪除：在“開發工具”選項卡上的“代碼”組中，單擊“宏”，在“宏名”列表中，選擇要刪除的宏的名稱“AutoClose”，然後單擊“刪除”即可。
啟用文檔中的宏
或許，妳雖然已經按上述進行了操作，但在關閉Word時，AutoClose宏卻並沒有運行，這是因為妳的Word設置為禁用宏的緣故，以下的操作可以啟用宏：
第壹步：單擊“Microsoft Office按鈕”，然後單擊“Word選項”。
第二步：依次單擊“信任中心”、“信任中心設置”和“宏設置”。
第三步：單擊以選中“啟用所有宏(不推薦，可能會運行有潛在危險的代碼)”復選鈕，該選項可允許所有宏運行，這可能會使計算機容易受到潛在惡意代碼的攻擊，因此不推薦使用。
第四步：依次單擊“確定”按鈕關閉各對話框。
至此，相信妳對Word自動宏有所了解了，願它們能夠在工作中幫助妳完成妳所需要的特殊服務，以減輕工作強度，提高工作效率，防止操作差錯。