Word 2000+ SaveAs Dialog

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
Tue Aug 03 07:59:38 CDT 2004

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

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup



"Carolyn Speakman" <CarolynSpeakman@discussions.microsoft.com> wrote in
message news:12A2387E-6BFC-4A69-8217-6A44BA93B26F@microsoft.com...
> 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

Cindy
Thu Aug 12 12:07:02 CDT 2004

Hi Jonathan,

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

Cindy

"Jonathan West" wrote:

> 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
>
> --
> Regards
> Jonathan West - Word MVP
> www.intelligentdocuments.co.uk
> Please reply to the newsgroup
>
>
>
> "Carolyn Speakman" <CarolynSpeakman@discussions.microsoft.com> wrote in
> message news:12A2387E-6BFC-4A69-8217-6A44BA93B26F@microsoft.com...
> > 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
Fri Aug 13 09:28:23 CDT 2004


"Cindy" <Cindy@discussions.microsoft.com> wrote in message
news:157231EB-FA5E-49C5-9CEF-533F026364D0@microsoft.com...
> 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


--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup