Word - 防止 SaveAs2 (VBA) 被覆盖

Question

在互联网上的某个地方，我发现此代码可以轻松地将 .docx 文件从 .dotx 文件保存到所需的文件夹中：

Sub SaveFileInTheCorrectDirectory()
    ActiveDocument.SaveAs2 "[the correct directory, put in manually by me in the VBA code]" & InputBox("Type the desired file name", "Save As")
End Sub

但是，此代码会自动覆盖已存在的同名文件（当然，在同一目录中）。 我试图寻找代码来解决这个问题，并找到了一些建议：

• 尝试从excel vba保存word文件，而不覆盖任何现有文件
• https://answers.microsoft.com/en-us/msoffice/forum/all/vba-macro-saveas-overights-exsiting-file-without/e6fce3b1-ee72-498d-8fe5-fbc3e0cdbf23
• http://computer-programming-forum.com/1-vba/2fb545278f4311ff.htm
• https://groups.google.com/g/microsoft.public.word.vba.customization/c/Q4W2CK4gQOg?pli=1

但我不知道如何实现它们......

有人能这么好心来帮助我吗？

谢谢！

PS 使用“SaveAs2”而不是“SaveAs”或其他方式是否有附加价值？

Answer 1

这很简单：

Dim StrName as String
StrName = InputBox("Type the desired file name", "Save As")
If Trim(StrName) = "" then Exit Sub
If Dir(StrPath & StrName & ".docx") = "" Then ActiveDocument.SaveAs2 StrPath & StrName & ".docx"

其中 StrPath 和 StrName 分别是路径和名称。

注意：如果文件存在，我没有添加任何代码，因为你没有说在这种情况下你想做什么。 如果您需要帮助，请发布一个新问题。