Macro VBA remplacement de lien de fusion Word Publipostage

Bonjour
j'ai un publipostage entre Word, Outlook et excel qui me pose probleme.
pour creer mes champs de fusion j'insere bien mon champs de fusion (lien hypertext) dans mon word a la main, tout fonctionne parfaitement.
mais lors d'un plantage de word, je dois les refaire a la main un par un car ceux ci sont remplacés par un lien en dur.
pour continuer notre envoi nous devons les refaire un par un a la main.
le probleme est que je dois le faire sur 15 documents d'un coup et c'est trop long.

je cherche si possible (j'ai essayé sans succes) une macro qui me remplcerait les liens par le champs de fusion correctement mis pour relancer le publipostage sans action manuelle sur chaque lien.

il y a une precision, j'ai deux types de lien :
- si presence de la chaine de caracteres "xxx" alors mettre champs de fusion 1
- si presence chaine de caractere "yyyy" (ou sinon), mettre champs de fusion 2

je vous mets en PJ deux documents.
un correctement relié aux champs de fusion
un qui a planté et sur lequel la macro doit s'exécutrer pour le mettre au format du premier document.

merci de votre aide !

j'ai deja tapé une macro qui ne convient pas je la met en PJ pour inspiration.
le probleme vient du format du lien inséré il n'est pas hypertext.