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"(不包括引号,大小写敏感)就可以了保存,关闭再次打开文件就会自动在最后一行自动加入当前日期了。