Insertar filas en Tabla(word)
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;
|