Il faut une petite macro que l'on pourra mettre sur une barre d'outils, ou bien à laquelle on pourra affecter un raccourci clavier :

Sub enregistrer()
ChangeFileOpenDirectory "C:\mon dossier"
Dialogs(wdDialogFileSaveAs).Show
End Sub 

Remplacer C:\mondossier par le chemin complet du répertoire.