Word 2000+ SaveAs Dialog

[Carolyn Speakman]

Is there any way to get a SaveAs dialog in VBA for Word 2000 and above? I was using
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = filesavename
.Title = "Save As"
fileSaveFlag = .Show
.Execute
End With
But it only works for Word 2003. Also as above, I'd like to specify the filename.

Any help would be great,
Carolyn

 

[Jonathan West]

Hi Carolyn,

The FileDialog object was new in Office 2003. For Office 2000, try this,
which
should also work for XP and 2003

With Dialogs(wdDialogFileSaveAs)
.Name = filesavename
fileSaveFlag = .Show
End With

 

[Cindy]

Hi Jonathan,

Do you know how to set the Save As path to be the Document Path in File
Locations?

Cindy

 

[Jonathan West]

Hi Jonathan,

Do you know how to set the Save As path to be the Document Path in File
Locations?

Hi Cindy,

Yes, put this line of code just before you open the Save As dialog

ChDir Dialogs(wdDialogToolsOptionsFileLocations).Setting