Question

我有一份我用于工作的文件，每天都会填写有关轮班的详细信息，以便转移到班次。这些文件已保存 2017年01月01日 01 01 2017夜 2017年01月01日 02 01 2017夜晚等，并提交以备参考，以便始终以日期作为文件名保存。

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

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

Answer 1

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

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

如果（aiieeee！）你想自动运行它来一次创建一个月的文件，你就把它包装成一个循环，即

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

“30”也可以是一个变量，当然，根据当月计算为28/29/30/31。

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

1 个答案: