Delphi + Word, поиск и замена

Pascal, Delphi, Lazarus Delphi
#1

Добрый день!
Хочу реализовать поиск и замену по документу Word
Использую com- объекты

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  Range: variant;
  FilePath: string;
begin
  CreateWord(True);
  wdApp.ActiveDocument.Range.InsertBefore('Hello, World!');
  wdApp.ActiveDocument.Range.InsertAfter(' How are you?');
  for i := 0 to wdApp.StoryRanges.Count - 1 do
  begin
    Range := wdApp.StoryRange.Item(i);
    Range.Find.Execute(FindText := 'word', ReplaceWith := 'drow',
      replace := wdReplaceAll);
  end;
end;

Подключаю ComObj, Word2010
Но выдает
image

Подскажите, что необходимо подключить, не могу найти

#2

Может это у документа

вызывать надо, а не у приложения?

Советую завести переменную для документа )

1 лайк