Avec cette ligne de commande qui va vérifier si le document a un chemin :
If ActiveDocument.Path = vbNullString Then