HighlightColor VBA Excel/Word

Bonjour à tous,

Je me permets de vous solliciter car j'ai un problème que je n'arrive pas à résoudre.
J'ai actuellement développé une macro Excel qui me permet de récupérer des champs contrôleur contenu, champs docproperty et des caseoption de documents Word, de pouvoir changer les champs sur Excel. Et j'ai développé une autre macro qui permet d'exporter les champ modifiés sur les documents Word.

J'aimerai aussi pouvoir enlever le "surlignage" des documents Word à l'exportation.
J'ai écrit:

Code:

---

1 2 3 4 5 6

Dim wd As Object For Each wd In DocWord.Words If wd.HighlightColorIndex = wdYellow Then wd.HighlightColorIndex = wdNoHighlight End If Next wd

---

Il arrive à détecter les mots surligner mais m'indique ce message d'erreur à la ligne wd.HighlightColorIndex = wdNoHighlight:
Pièce jointe 573759

J'ai cherché pendant longtemps sur internet mais je ne comprends pas d'où vient le problème.
Si j'effectue la même action avec des caractères gras, je n'ai aucun problème:

Code:

---

1 2 3

If wd.Bold = True Then wd.Bold = False End If

---

Je me demande si ce n'est pas un problème de référence VBA non chargé mais je ne trouve pas, voici celle que j'ai actuellement:
Pièce jointe 573760

Si qqn aurait une idée de ce qui bloque, je lui serait très reconnaissant.

Merci d'avance.
Philippe.

Bon je viens de voir qu'en mettant ceci:

Code:

---

1 2 3 4 5 6

Dim wd As Object For Each wd In DocWord.Words If wd.HighlightColorIndex = wdYellow And wd.HighlightColorIndex = True Then wd.HighlightColorIndex = wdNoHighlight End If Next wd

---

Certains motsdans Word qui étaient surlignés ne le sont plus mais pas tous: Va savoir pourquoi?