[Loviedo]

Tengo una plantilla de Word con dos tablas y funciona bien al editar las celdas, pero no se como insertar nuevas filas en las tablas.
Uso delphi7 y WXP.
Gracias anticipadas.

var
Template,NewTemplate, Filename: OleVariant;
T: Table;
begin
NewTemplate := false;
WordApplication1.Connect;
WordApplication1.Visible := true;

filename := 'C:\Tartessos\Temp\Prueba.doc';
Template := 'C:\Tartessos\Temp\CURRICULUMVITAE.dot';

Doc.ConnectTo(WordApplication1.Documents.open(Template,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam));

T := Doc.Tables.Item(1);
T.Cell(1, 1).Range.Text := 'Presupuesto1';
T.Cell(1, 2).Range.Text := 'nombre1';
T.Cell(2, 1).Range.Text := 'Presupuesto2';
T.Cell(2, 2).Range.Text := 'nombre2';

T := Doc.Tables.Item(2);
T.Cell(1, 1).Range.Text := 'nombre3';
T.Cell(1, 2).Range.Text := 'unidad1';

Doc.saveas2000(filename);

WordApplication1.Disconnect;