Salut,

je n'ai jamais eu à faire ce qui te pose problème mais voila ce que j'ai trouvé:

1/ L'exemple suivant montre comment rechercher toutes les occurrences du mot « salut » dans le document actif et les remplacer par « bonjour ».

Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="salut", ReplaceWith:="bonjour", _
Replace:=wdReplaceAll

2/ L'exemple suivant montre comment localiser la première occurrence du mot « bleu » dans le document actif. Si ce mot est trouvé dans le document, myRange est redéfini et la mise en forme gras est appliquée au mot « bleu ».»

Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="bleu", Forward:=True
If myRange.Find.Found = True Then myRange.Bold = True



j'espère que ça pourra t'aider...

bonne chance!