Avec cette ligne de commande qui va vérifier si le document a un chemin :

If ActiveDocument.Path = vbNullString Then