Problem with saving from another location.

Question

Hi:)
My name is Steffen, and I have a little problem. I have this code down under. It works well enough, but the problem is that I can not give a new file name, but it is the same name that recur. How do I fix this. I use a template.
The code
Sub SaveMyDocument()
 Activedocument.SaveAs2 "C:\Users\Stephen Christiansen\OneDrive\first Applications\test.docx"
End Sub
Sincerly
Steffen

Answer 1

Hi Steffen,
One way to do this can be:
Sub SaveMyDocument()
Dim strFilename As String
strFilename = InputBox ("Save File as...", "[provide filename]")
ActiveDocument.SaveAs2 "C:\Users\Stephen Christiansen\OneDrive\first Applications\" & strFilename & ".docx"
End Sub
The inputbox is shown to the user and the input is stored in the strFilename variable. That way whenever the code is run it will ask for a filename which you can suppy.
Maurice
When you see answers and helpful posts, please click Vote As Helpful, Propose As Answer, and/or Mark As Answer. Thank You