如何在WORD文件名后面自动添加时间？

WORD文件名后面自动添加时间方法如下：

（1）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

（2）ALT+F8保存，运行MACRO1宏即可。

Microsoft Word是微软公司的一个文字处理器应用程序。它最初是由Richard Brodie为了运行DOS的IBM计算机而在1983年编写的。随后的版本可运行于Apple Macintosh (1984年), SCO UNIX，和Microsoft Windows (1989年)，并成为了Microsoft Office的一部分。

用途：

1、Word XP 基本文书处理技巧及认识萤幕工具。

2、快速键入中文标点符号。

3、中文字符放大缩小、直式通告制作，中式公函。

4、各款中文繁/简字体及香港常用字库运用。

5、行距、段落对齐、建立清单列、定位点设定 Word让文档编辑变得如此简单。

6、使用页头及页尾加入文件标题及页码。

7、表格及多栏制作，以方便制作报价单，会议议程及工作时间表。

8、加插图片、图表、文字艺术师等中文桌面印刷以制作图文并茂的文件或公司通讯。

9、不同资料大量合拼打印信件。

如果您想让不同的品名后面带一样的日期，您可以使用Excel的文本函数来实现。文本函数可以将日期格式化为您想要的格式，比如您可以使用函数“TEXT（A1，“yyyy-mm-dd”）”，将A1单元格中的日期格式化为“yyyy-mm-dd”格式，然后将格式化后的日期拷贝到其他单元格中，即可实现不同品名后面带一样的日期。

---