If you want to set a default save path, you could use:
Options.DefaultFilePath(wdDocumentsPath) = "C:\"
replacing "C:\" with whatever your preferred path is. You don't need the 'SaveAs' dialogue for that.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]