VBA EXCEL / WORD - 保存为

Question

这可能是一个非常简单的问题但是我拥有的是什么 我有一大堆代码可以正常工作但是当涉及到保存文档时我只能将其保存为特定名称但我希望它保存为“访客日记招聘（某些独特的东西）”以便它不会覆盖每次运行它时的文档，而是创建一个新文档

With wApp
.ActiveDocument.SaveAs2 (path)
.ActiveWindow.Close
.Quit

Set wApp = Nothing
Set wDoc = Nothing
End With
End Sub

请帮助：）

Answer 1

您可以使用唯一ID保存文档（根据您的需要，有很多选项可供选择）：

• 随机数
• 使用日期时间戳
• 使用Guid

使用随机数：

set uniqueName = Int(25 * Rnd()) + 1 //25 is the amount of random numbers you want

使用日期时间：

set uniqueName = Format(Now(), "MMMM dd, yyyy hh:mm AM/PM")

使用Guid - 我自己还没有这样做，虽然我确定必须有一种生成方法。 （This可能有帮助）

然后将您的SaveAs更改为：

ActiveDocument.SaveAs2 ("C:\Users\colesa\Desktop\Recruitment Macros\Visitor Diary Recruitment" +uniqueName + ".doc")