Работа метода Word.Selection.Find при поиске в документе Word - Delphi - Ответ 9741105

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  wdReplaceAll = 2;
var
  wdApp, wdDoc, wdRng, wdFind : OleVariant;
begin
  try
    wdApp := CreateOleObject('Word.Application');
  except
    ShowMessage('Не могу запустить Microsoft Word');
  end;
  wdApp.Visible := True;
  wdDoc := wdApp.Documents.Add;
  wdRng := wdDoc.Range; //Диапазон документа.
  wdRng.Text := 'ум, умный';
 
  wdFind := wdDoc.Range.Find;
  wdFind.Text := 'ум';
  wdFind.Replacement.Text := 'разум';
  wdFind.Forward := True;
  //if wdFind.Execute(FindText:='Слово', ReplaceWith:='Слово1', Replace:=wdReplaceAll, MatchWholeWord:=True) then
 
  if wdFind.Execute(Replace:=wdReplaceAll, MatchWholeWord:=True) then
    ShowMessage('Целые слова найдены и заменены.')
  else
    ShowMessage('Целые слова не найдены.');
 
  if wdFind.Execute(Replace:=wdReplaceAll, MatchWholeWord:=True) then
    ShowMessage('Целые слова найдены и заменены.')
  else
    ShowMessage('Целые слова не найдены.');
 
  wdFind.Text := 'разум';
  wdFind.Replacement.Text := 'ум';
  if wdFind.Execute(Replace:=wdReplaceAll, MatchWholeWord:=False) then
    ShowMessage('Подстроки найдены и заменены.')
  else
    ShowMessage('Подстроки не найдены.');
end;