[Gman]

Держи простенький пример как это делается, по аналогии сможешь сделать свой код.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var WordApp, doc,sel_,cell:Variant;  p,ChisloD:string; i:integer;
fil:OLEVariant; Cel1,Cel2:Variant;
begin
try
 WordApp:=CreateOleObject('Word.Application');//
 doc:=WordApp.Documents.open('E:\Borland Studio Projects\ww\Shablon PasportK.doc');

 WordApp.Selection.GoTo(-1,,,'Inv');//переход к закладке
 WordApp.Selection.TypeText(Edit1.Text);//вставляем то, что нам надо
except
end;


end;