Как организовать поиск в документе Word посредством Delphi?

[Pinkygirl]

Имеется документ Word. В нем находится несколько таблиц. Нужно организовать поиск по первому столбцу. При нахождении нужной ячейки, нужно всю строку, в которой она находится, переместить в Exel. Сам алгоритм понимаю, не могу реализовать в Delphi. Помогите, пожалуйста!!!

[raxp]

...заготовочку по word-у даю, дальше сами (темы на форуме поднимались):

w: variant;
begin
...
 W := CreateOleObject('Word.Application');
 W.Visible := False;

 W.Documents.Open('test.doc');
 if W.Selection.Find.Execute('Text') then ;

 W.ActiveDocument.Close;
 W.Quit;
 W := Unassigned

[Pinkygirl]

Спасибо, конечно. Но как Word к Delphi подключить я разобралась. Вся проблема в самом поиске.

procedure TForm2.Button1Click(Sender: TObject);
Var t:String;
Word:Variant;
begin
t:='';
t:=InputBox('Введите позицию для поиска',t,t);
Word.ActiveDocument.Selection.Find. Forward:=true;
Word.ActiveDocument.Selection.Find. text:=t;
if word.ActiveDocument.Selection.find. execute then messagebox(handle,'Поиск текста завершен успешно!','Внимание!',0);
end;
end.


Ошибка Invalid Variant Operation

[Pinkygirl]

И потом ОБЯЗАТЕЛЬНО всю строку нужно закинуть в Exel.

[raxp]

гляньте эти примеры... все должно проясниться.

[Pinkygirl]

Спасибо, сейчас посмотрю. Потом отпишусь.