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.