ALT+F11
復制以下宏
Sub Macro1()
Dim myfilename As String
myfilename = Format(Date, "yyyy/m/d ", vbSunday, vbUseSystem)
myfilename = myfilename + ".doc"
ChangeFileOpenDirectory "C:\"
ActiveDocument.SaveAs filename:=myfilename, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End Sub
想要保存時
ALT+F8，運行MACRO1宏即可。
注意：上面宏默認保存到C:\下，可根據自己的意願將保存位置更改
方法：
把上面
ChangeFileOpenDirectory "C:\"
中的C:\替換為其他位置
② 如何在WORD文件名後面自動添加時間
1、首先需要確保Word的宏安全性設置至少為「中」（工具-宏-安全性-中）。
2、在Word裡面新建一個空白文檔，給它隨便取個名字（比如「我的日誌」）保存一下——這個文檔就是你以後日誌文檔的開端了！（注意，如果你用的是Word 2007的話，需要保存為啟用宏的文檔*.docm）
3、鍵入ALT+F11打開VBA編輯窗口，鍵入CTRL+R激活左邊的「工程 – Project」面板；
4、雙擊工程面板中的「Project (我的日誌)\Microsoft Word 對象\ThisDocument」打開代碼窗口；粘貼如下代碼進去：
Option Explicit
Dim oLogFileCreator As LogFileCreator
Private Sub Document_Open()
On Error Resume Next
Set oLogFileCreator = New LogFileCreator
Set oLogFileCreator.WordApplication = Application
End Sub
Private Sub Document_Close()
On Error Resume Next
Set oLogFileCreator.WordApplication = Nothing
Set oLogFileCreator = Nothing
End Sub
5、選擇菜單「插入-類模塊」，然後在工程面板里雙擊這個剛生成的「Project (我的日誌)\類模塊\類1」，粘貼如下代碼進去：
Option Explicit
Public 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 Next
Dim fso As Object
Dim strOldName As String, strNewName As String
Set fso = CreateObject("Scripting.FileSystemObject")
strOldName = ActiveDocument.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strOldName), Format(Now, c_strFileNamePrefix & "yyyy-mm-dd.") & fso.GetExtensionName(strOldName))
If UCase(strNewName) <> UCase(strOldName) Then
ActiveDocument.SaveAs strNewName
fso.DeleteFile strOldName
Cancel = True
End If
Set fso = Nothing
End Sub
6、可以根據需要修改代碼中的日誌文件名前綴。默認的日誌文件名是類似 「我的日誌_2009-09-12」這樣的形式。
7、鍵入F4打開屬性面板，在裡面把「（名稱）」從「類1」改為「LogFileCreator」。
8、鍵入ALT+Q關閉VBA編輯窗口返回Word文檔窗口，保存，關閉。
9、再次重新打開這個文檔，如果Word提示是否啟用宏，選擇啟用。
10、現在你的這個自動按日期保存的日誌就可以正常運作了。每次你做完修改後，只要你一保存，它就會根據今天的日期自動把文檔保存成類似這樣的形式「我的日誌_2009-09-12」（前綴「我的日誌」可以在上面代碼中修改）。
③ EXCEL每次保存，後如何在文件名後面自動生成當前日期
通常加入系統時間是在單元格內輸入=NOW()函數，系統自動生成當前時間。這樣做如果該工作表中任意一個單元格數據發生變化，所有使用=NOW()生成時間的單元格都會跟隨全部變化。
為了實現時間不跟隨表格內容改變而改變，達到固定時間目的，我們通過使用數據有效性來實現。
在任意單元格插入=NOW()函數，如實驗表格中D1列。
單擊【數據】選項卡，選擇【數據有效性】選項，彈出數據有效性設置窗口。
設置有效性條件為「序列」 ，數據來源設置為步驟2中的D1列，將引用改為絕對引用，即"=$D$1"，點擊確定保存。
在A3、A4、A5單元格輸入內容測試，會發現，B3、B4、B5時間不會隨著單元格變化而變化。但直接使用NOW()函數的A1、A2單元格卻會跟隨著進行變化。
④ 怎樣使txt文件自動添加日期
打開txt文檔自動插入日期只要在文件開頭輸入".LOG"(不包括引號,大小寫敏感)就可以了保存,關閉再次打開文件就會自動在最後一行自動加入當前日期了。