Word - 防止 SaveAs2 (VBA) 被覆盖

Question

Somewhere on the internet I found this code to easily save a .docx file out of a .dotx file into the desired folder:

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

However, this code automatically overwrites an already existing file with the same name (and in the same directory, of course). I've tried looking for code to fix this, and found a few suggestions:

• Trying to save word file, from excel vba, without over-writing any existing files
• 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

But I can't figure out how to implement them...

Could someone be so kind to assist me?

Thanks!

PS Is there added value to use "SaveAs2" instead of "SaveAs" or the other way around?

Answer 1

That's as simple as:

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"

where StrPath & StrName are the path & name, respectively.

Note : I haven't added any code for what to do if the file exists because you haven't said what you want to do in that case. Post a new question if you need help with that.