FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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; |
|
|
|