Alors pour ceux que ça intéresse, voici la sol que j’ai trouvée :
[cpp]Dim Apw As Object
Dim ww As Object
Set Apw = CreateObject(“Word.Application”)
Set ww = Apw.ActiveDocument
Apw.Documents.Open FileName:=“test.doc”, ReadOnly:=True
Apw.Visible = True
Apw.Selection.Find.ClearFormatting
With Apw.Selection.Find
.text = "et"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
While Apw.Selection.Find.Execute
Apw.Selection.Font.ColorIndex = wdDarkBlue
Wend[/cpp]