Save as in current directory

[Petra Liverani]

I would like to know the code for saving a document with a different name
and ensuring that it stays in the current directory. I've noticed there is a
CurDir function(?) but I don't know how to use it.

Thank you.

Petra

 

[Doug Robbins - Word MVP]

Hi Petra,

CurDir will return the path to the folder that appears when you use
File>Open. If you change the folder in the File>Open dialog, then CurDir
will return the path to which you changed it. If you want to save a
document into the folder from which it was open, but with a different name,
It might be better to parse the .FullName property of the document to get
the folder name.

Dim DocPath As String
DocPath = Left(ActiveDocument.FullName, Len(ActiveDocument.FullName) -
Len(ActiveDocument.Name))
'MsgBox DocPath
ActiveDocument.SaveAs DocPath & "NewFileName"

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

 

[Petra Liverani]

Thank you so much Doug. It works great.

Petra

Hi Petra,

CurDir will return the path to the folder that appears when you use
File>Open. If you change the folder in the File>Open dialog, then CurDir
will return the path to which you changed it. If you want to save a
document into the folder from which it was open, but with a different name,
It might be better to parse the .FullName property of the document to get
the folder name.

Dim DocPath As String
DocPath = Left(ActiveDocument.FullName, Len(ActiveDocument.FullName) -
Len(ActiveDocument.Name))
'MsgBox DocPath
ActiveDocument.SaveAs DocPath & "NewFileName"

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP
is