FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Poner El Cursor Al Final Del Documento
Hola a todos
Necesito PONER EL CURSOR AL FINAL DEL DOCUMENTO Hace dias que estoy tratando de resolver el problema y no lo logro, ya revise todos los post que encontre con el tema y tampoco me resuelven, trabajo con DELPHI5 y exporto el documento con los componentes de la paleta servers: TWordApplication;TWordDocument. Lo que tengo que hacer es enviar varias tablas a word segun el resultado de una consulta, cuando envio la primera el cursor se me queda en la primera celda y yo necesito enviarlo al final del documento para insertar la siguiente tabla y asi varias veces Aqui les envio mi codigo, si alguien puede revisarlo y decirme que estoy haciendo mal. Muchas gracias TMain = class(TForm) WordApplication1: TWordApplication; Doc: TWordDocument; ParaFmt: TWordParagraphFormat; WordFont1: TWordFont; .............. end; procedure TMain.SpeedButton1Click(Sender: TObject); var S: Selection; WordTable: Table; RowCount, ColCount: Integer; RowIndex, ColIndex: Integer; begin WordApplication1.Connect; WordApplication1.Visible := True; Doc.ConnectTo(WordApplication1.Documents.Add(EmptyParam, EmptyParam)); {Insertamos un texto al comienzo de la pagina con un formato dado} S := WordApplication1.Selection; WordFont1.ConnectTo(S.Font); S.Font.Size := 16; S.Font.Name := 'arial'; S.Font.Bold := integer(True); S.Font.ColorIndex:=09; S.ParagraphFormat.Alignment := wdAlignParagraphCenter; //texto centrado S.TypeText('Solicitud de Suministros'); S.TypeParagraph; S.TypeParagraph; //fecha impresion S.Font.Size := 11; S.ParagraphFormat.Alignment := wdAlignParagraphRight; //texto derecha S.TypeText('Fecha Impresion:'); S.TypeParagraph; //cambio de linea S.TypeParagraph;//inserto una linea S.ParagraphFormat.Alignment := wdAlignParagraphLeft; //texto izq doc.Application.Selection.Range.set_text('Esto es una Prueba');//aqui inserto un texto try RowCount := 16; ColCount := 5;/ WordTable := doc.Tables.Add(S.Range, RowCount + 1, ColCount); for ColIndex := 1 to ColCount do begin WordTable.Cell(1, ColIndex).Range.Font.Bold := 1; WordTable.Cell(1, ColIndex).Range.Text := 'mi prueba'; WordTable.Cell(1, ColIndex).Range.Paragraphs.Alignment :=wdAlignParagraphCenter; end; RowIndex := 2; while RowIndex <=16 do begin for ColIndex :=1 to ColCount do WordTable.Cell(RowIndex, ColIndex).Range.Text := 'items'; Inc(RowIndex); end; finally end; //aqui es donde debo poner el cursor al final y volver a insertar otra tabla //he probado todas estas, por supuesto, por separado(una o la otra y nada) Doc.Application.Selection.End_;//ya probe con esto pero nada, no me da error pero no se mueve el cursor Doc.Application.Selection.endkey;// error [Error]Not enough actual parameters end; saludos |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Win Vista final y Office 2007 final Pirateados | radaalvaro | Noticias | 6 | 14-11-2006 19:21:20 |
Como poner el cursor al inicio de un TMemo | Javi2 | Varios | 9 | 23-06-2005 00:57:03 |
Dejar cursor al final | jam888 | Varios | 3 | 16-10-2004 12:26:00 |
... un final feliz ???... | Jure | Humor | 1 | 07-04-2004 11:16:39 |
|