SaveAs dialog in word

Code:

---

With Dialogs(wdDialogFileSaveAs)
    .Name = strNewFilename
    .Execute
    .Update
    .Show
End With

---

I would be very grateful if someone could tell me whether it is possible to change the directory the saveas dialog defaults to when it is displayed so I can adapt the code above

Thanks

Just add the path to the Name.

VB Code:

With Dialogs(wdDialogFileSaveAs)
    .Name = "C:\Program Files\" & strNewFilename
    .Execute
    .Update
    .Show
End With

:)