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

Question

如题所述

Answer 1

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”（前缀“我的日志”可以在上面代码中修改）。

Answer 2

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、不同资料大量合拼打印信件。

Answer 3

具体如下:

1、首先我们打开一个word文档，我现在文档最上面输入两个标注文档更新日期，接文档更新时间。

2、接下来我们找到word文档插入选项，在插入选项下找到文本选项卡，如下图所示。

 

3、而在文本选项下就有一个时间和日期选项，如下图所示，有一个时间的小标志。

4、接下来我们先把鼠标定位在文本更新日期那里，然后我们点击选择时间和日期选项。接下来就会蹦出来一个日期与时间对话框，在其中可以选择自己需要的显示格式，选择好以后点击确定就可以。

5、而时间也跟日期的方法是相同的，先把光标定位到文档更新时间后面，再在时间和日期对话框内选择自己喜欢的时间显示方式。选好点击确定就可以了。

6、返回到word文档内就可以看到文档内就完成了文档更新日期和时间的显示。保存好，我们下次再打开word文档的时候就可以知道文档更新的日期和时间了。

Answer 4

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”（前缀“我的日志”可以在上面代码中修改）。