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」（前綴「我的日誌」可以在上面代碼中修改）。
③ linux中怎樣從文件名里提取一個日期，比如:aewf_2015060201.nc中把日期提取出來
大致思路是
ls-ahl l >a.txt
查看文件當前文件目錄 將文件的當前路徑用重定向寫入文件
用正則處理文件內容
可能有更簡單的
④ 如何在word文檔和Microsoft Excel工作表的文件名後自動加上創建日期
文件自動更名器
網路搜索下載這個軟體就行,可以按你指定的各種要求批量更改文件名