Hola estuve intentando las alternativas presentadas pero todavia no pude hacer funcionar!!!
Les mando el codigo, salta un error en la linea de worddoc.typetext('lo que sea'). corranlo y van a ver...
uses comobj;
procedure TForm1.Button1Click(Sender: TObject);
var WordApp, WordDoc, WordTable: variant;
i,j: integer;
begin
WordApp := CreateOleObject('Word.Application');
WordApp.Visible:=True;
WordDoc := WordApp.Documents.Add;
WordDoc.TypeText(' Titulo de la tabla ');
WordTable := Worddoc.Tables.Add(Worddoc.Range,5,3);
for i:= 1 to 5 do
for j:=1 to 3 do
WordTable.Cell(i,j).Range.Text := inttostr(i);
WordDoc.TypeText(' Resultado obtenido: '+label1.caption);
end;
Corran el codigo, agradeceria mucho su ayuda. Muchas gracias
p/d: Creo que en este ejempo queda claro lo que quiero hacer.