Pour simplement ouvrir la boîte de dialogue "Ouvrir" ou "Enregistrer sous", utiliser les formules magiques suivantes :

Dialogs(wdDialogFileOpen).Show
ActiveDocument.Save

 

(si le document n'a jamais été enregistré, la fenêtre "enregistrer sous..." s'ouvre).