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; |
#2
|
|||
|
|||
¡Encontré la respuesta!
nFilas: OleVariant; nFilas := 3; T := Doc.Tables.Item(1); T.Select; wordapplication1.Selection.InsertRowsBelow(nFilas); |
#3
|
|||
|
|||
Insertar filas despues una fila
para complementar el ejemplo anterior que coloca una fila al final de la tabla, para insertar filas debajo de cualquier fila basta con colocarse en cualquier celda y ejecutar el mismo procedimiento InsertRowsBelow
//seleccionamos el Item de la tabla a la cual le queremos insertar las filas T := WordDoc.Tables.Item(2); //ahora nos colocamos en cualquier fila i T2.Cell(i, 1).Range.Select; //insertamos la fila WordAPP.Selection.InsertRowsBelow(1); |
|
|
|