S'il n'y a pas de réponse c'est qu'il n'y a pas de question
Avec cette ligne de commande qui va vérifier si le document a un chemin :
If ActiveDocument.Path = vbNullString Then