Save renamed file to original directory

[RaymondB]

Good morning once again.

I have a user form which asks the user if they wish to change any of the parameters of a file name and if so changes the file name and prompts to save it.

The format of the file name is ""Product_Name" SectionName Version "Version_No" "Effective_Year""Effective_Month""Effective_Day".docx"

For example "product 1 Section Incoming mail Version 06 20200815.docx"

The user would, for example, change the version number and effective month and day.

For example "product 1 Section Incoming mail Version 06 20200815" becomes "product 1 Section Incoming mail Version 07 20210916".

This is all good and well but word prompts the user (via the SaveAs dialog) to save the renamed file in his default file location whereas it must be saved in the location from which the original file was opened. The user has to then navigate. Depending on the file, it could be as many as 3 folders down on a shared directory.

How do I go about getting the dialog to prompt to the original location?

Any help will, as usual, be greatly appreciated.

Raymond Basson

[HansV]

What is the code that prompts the user to save?

[RaymondB]

MySaveName = "multisure" & " " & Section.GetText & " Version " & Version.GetText & " " & VersionYear.GetText & VersionMonth.GetText & VersionDay.GetText & ".docx"
With Dialogs(wdDialogFileSaveAs)
.Name = MySaveName

.Show
End With
FileSave

[HansV]

Use

MySaveName = ActiveDocument.Path & "\" & "multisure" ...

[RaymondB]

Thanks, I will try it later.

[RaymondB]

Thanks, works like a charm