如何以日期为文件名多次保存word文档

Question

我有一份用于工作的文件，每天都会填写有关轮班的详细信息，以便传递给即将到来的轮班。这些文件被保存 2017 年 1 月 1 日 01 01 2017 夜 2017 年 02 月 1 日 02 01 2017 Night 等等，并归档以供将来参考，因此它们始终以日期作为文件名保存。

我在文件本身中也有两个日期字段，我想用文件名更改它们，但这并不重要，所以如果不可能的话可以避免。

所以我想问的是！有没有办法在文本字段和文件名中更改日期的情况下多次保存文件，这可能吗？

Answer 1

是的，您可以使用 VBA 执行此操作。下面是骨架宏。它将文件保存在目录 "C:\foo" 中，名称采用 ISO-8601 格式。

Sub Macro1()
  Dim DateStr, FileStr As String
  DateStr = Format$(Date, "yyyymmdd")
  FileStr = DateStr & ".docx"

  ActiveDocument.Save
  ChangeFileOpenDirectory "C:\foo\"
  ActiveDocument.SaveAs2 FileName:=FileStr, FileFormat:=wdFormatXMLDocument
End Sub

如果（aiieeeee！）你想运行自动一次性创建一整月的文件，你可以将它包装在一个循环中，即

For index As Integer = 1 To 30
  ; do stuff here
Next

这个“30”也可以是一个变量，当然，按照当月计算是28/29/30/31。

如何以日期为文件名多次保存word文档

How to save a word document multiple times with date as filename

filenames

vba

ms-office