Utiliser la boîte de dialogue du programme :

Cette macro permettra de choisir le répertoire mais le nom fichier sera déjà écrit. Cet exemple donnera pour nom la date, du document.

Sub FichierEnregistrerSous()
With Dialogs(wdDialogFileSaveAs)
.Name = date  & ".docx"
.Show
End With
End Sub