$doc = (@ScriptDir & "\test.doc")

$str = "123"

$Fontcolor = 0xFF0000

;~ $Highlightcolor = "Bright Green)

$oWord = ObjCreate("Word.Application")
$oWord.Documents.Open($doc)
$oWord.selection.find.ClearFormatting() ; clear previous search

while $oWord.selection.find.execute($str) = True
$oWord.Selection.Expand
$oWord.selection.Font.Color = $Fontcolor
$oWord.selection.Font.Bold = True
$oWord.selection.Find.Forward = True
$oWord.Selection.Find.Execute
wend

$oWord.documents.Save
$oWord.Application.Quit
$oWord = 0
MsgBox(0, "Highlighter", "Finished")