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

复制以下宏

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

1、首先，打开Word文档，点击插入下方的日期、时间选项。

2、选择想要的日期格式，点击确定，输入即可。

3、快速输入日期的方法是使用快捷键CTRL+ALT+D。

word文档是office办公软件的一部份，Word是微软公司的一个文字处理器应用程序，可以使用Word处理文字内容，进行版面编辑等 *** 作。