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