word保存时,如何在文件名上自动添加保存的日期、时间

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:\替换为其他位置

文件-属性里面可以看!是自动了吧!
你文档查看方式为详细信息也会有