2、在Word裡面新建一個空白文件，給它隨便取個名字（比如“我的日誌”）儲存一下——這個文件就是你以後日誌文件的開端了！（注意，如果你用的是Word 2007的話，需要儲存為啟用宏的文件*.docm）3、鍵入ALT+F11開啟VBA編輯視窗，鍵入CTRL+R啟用左邊的“工程 – Project”面板；4、雙擊工程面板中的“Project (我的日誌)\Microsoft Word 物件\ThisDocument”開啟程式碼視窗；貼上如下程式碼進去：Option ExplicitDim oLogFileCreator As LogFileCreatorPrivate Sub Document_Open()On Error Resume Next Set oLogFileCreator = New LogFileCreatorSet oLogFileCreator.WordApplication = ApplicationEnd SubPrivate Sub Document_Close()On Error Resume NextSet oLogFileCreator.WordApplication = NothingSet oLogFileCreator = NothingEnd Sub5、選擇選單“插入-類模組”，然後在工程面板裡雙擊這個剛生成的“Project (我的日誌)\類模組\類1”，貼上如下程式碼進去：Option ExplicitPublic WithEvents WordApplication As Word.Application" 根據需要修改下面引號中的內容作為你日子檔案的預設字首Private Const c_strFileNamePrefix = "我的日誌_"Private Sub WordApplication_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)On Error Resume NextDim fso As ObjectDim strOldName As String, strNewName As String Set fso = CreateObject("Scripting.FileSystemObject") strOldName = ActiveDocument.FullNamestrNewName = fso.BuildPath(fso.GetParentFolderName(strOldName), Format(Now, c_strFileNamePrefix & "yyyy-mm-dd.") & fso.GetExtensionName(strOldName)) If UCase(strNewName) <> UCase(strOldName) ThenActiveDocument.SaveAs strNewNamefso.DeleteFile strOldNameCancel = TrueEnd If Set fso = NothingEnd Sub6、可以根據需要修改程式碼中的日誌檔名字首。預設的日誌檔名是類似 “我的日誌_2009-09-12”這樣的形式。7、鍵入F4開啟屬性面板，在裡面把“（名稱）”從“類1”改為“LogFileCreator”。8、鍵入ALT+Q關閉VBA編輯視窗返回Word文件視窗，儲存，關閉。9、再次重新開啟這個文件，如果Word提示是否啟用宏，選擇啟用。10、現在你的這個自動按日期儲存的日誌就可以正常運作了。每次你做完修改後，只要你一儲存，它就會根據今天的日期自動把文件儲存成類似這樣的形式“我的日誌_2009-09-12”（字首“我的日誌”可以在上面程式碼中修改）。