Поиск и выделение фрагмента в вордовском документе

[Bobby]

Всех с пятницей!!! Вот такой вопрос. Необходимо найти и выделить жирным шрифтом определенную фразу в вордовском документе. Делаю следующим образом:

WA.ActiveDocument.Range(1,1).select ; //переход в начало документа
WA.Selection.Find.ClearFormatting;
WA.Selection.Find.Text:=trim(str);
WA.Selection.Find.Replacement.Text: ='';
WA.Selection.Find.Forward:=True;
WA.Selection.Find.Wrap:=wdFindConti nue;
WA.Selection.Find.Format:= False;
WA.Selection.Find.MatchCase:= False;
WA.Selection.Find.MatchWholeWord:= False;
WA.Selection.Find.MatchWildcards:= False;
WA.Selection.Find.MatchSoundsLike:= False;
WA.Selection.Find.MatchAllWordForms := False;
result:=WA.Selection.Find.Execute;

в итоге находится только первая фраза и после этого тормоз, а необходимо выделить эту фразу во всем документе. В чем косяк, подскажите ПЛЗ!!!!

[Скандербег]

      WA.Selection.Find.ClearFormatting;
      WA.Selection.Find.Text := str;
      WA.Selection.Find.Replacement.Text := str;
      WA.Selection.Find.Replacement.Font.Bold := wdToggle;
      WA.Selection.Find.Forward:=True;
      WA.Selection.Find.Wrap:=wdFindContinue;
      WA.Selection.Find.Format:= True;
      WA.Selection.Find.MatchWholeWord:= False;
      WA.Selection.Find.MatchCase:= False;
      WA.Selection.Find.MatchWholeWord:= False;

      WA.Selection.Find.Execute(Replace:=wdReplaceAll);