[JustinBailey]

I have a document named test.doc saved in C:\one. I open that document in
Word (2003). Now I want a macro that shows the SaveAs dialog defaulting to
C:\two instead of C:\one. I've tried...

ChangeFileOpenDirectory "C:\two\"
Dialogs(wdDialogFileSaveAs).Show

....and...

Dialogs(wdDialogFileSaveAs).Name = "C:\two\"
Dialogs(wdDialogFileSaveAs).Show

....but those only seem to work on unsaved documents and not at all,
respectively. And not that it makes a noticeable difference either way but
Tools Options File Locations Documents is already set to C:\two. Any
suggestions?

[garfield-n-odie [MVP]]

See http://www.gmayor.com/automatically_backup.htm .

JustinBailey wrote:

I have a document named test.doc saved in C:\one. I open that document in
Word (2003). Now I want a macro that shows the SaveAs dialog defaulting to
C:\two instead of C:\one. I've tried...

ChangeFileOpenDirectory "C:\two\"
Dialogs(wdDialogFileSaveAs).Show

...and...

Dialogs(wdDialogFileSaveAs).Name = "C:\two\"
Dialogs(wdDialogFileSaveAs).Show

...but those only seem to work on unsaved documents and not at all,
respectively. And not that it makes a noticeable difference either way but
Tools Options File Locations Documents is already set to C:\two. Any
suggestions?

[JustinBailey]

I see how that works, and you're on the right track, but the situation that
page describes programatically saves the document with the same name in a
different but fixed folder. What I'm looking to do is open the SaveAs window
defaulting to C:\two so that the user can browse to another folder and/or
rename the file if they want. I understand I *could* use the gmayor
technique, change the filename and path values to variables, and prompt the
user but that seems far more cumbersome to the user than it's worth.

Anyone else?


"garfield-n-odie [MVP]" wrote:

See http://www.gmayor.com/automatically_backup.htm .

[Akaisar]

ChangeFileOpenDirectory "C:\two"
With Application.Dialogs(wdDialogFileSaveAs)
.Name = "NameOfYourDoc.doc"
.Show
.Execute
End With



You have to have execute or it won't work. This is what I use to open a SaveAs dialog in word and it works great.