Enviar texto a word
hola nuevamente compañeros del foro. Tengo que realizar una aplicación la cual debe enviar algunas lineas a word y despues una tabla cuyos datos son los datos de una tabla. El problema es que envia las lineas y luego la tabla sustituye a esas lineas. Quisiera ver si es posible que alguien me dijera como solucionar mi problema. Para insertar la tabla he dado una vuelta por este foro y me encontre con algo de código escrito por roman. Aqui tienen el código y por favor echenme una mano. Utilizo delphi 7 y la tabla es paradox
Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var WordTable: Table; RowCount, ColCount: Integer; RowIndex, ColIndex: Integer; begin worddocument1.Application.Selection.Range.set_text('Esto es una Prueba');//aqui inserto el texto de prueba datasource1.DataSet.Open; try RowCount := datasource1.DataSet.RecordCount; ColCount := datasource1.DataSet.Fields.Count; WordTable := worddocument1.Tables.Add(worddocument1.Range, RowCount + 1, ColCount,emptyparam,emptyparam); for ColIndex := 1 to ColCount do begin WordTable.Cell(1, ColIndex).Range.Font.Bold := 1; WordTable.Cell(1, ColIndex).Range.Text := datasource1.DataSet.Fields[ColIndex - 1].FieldName; WordTable.Cell(1, ColIndex).Range.Paragraphs.Alignment := wdAlignParagraphCenter; end; RowIndex := 2; while not datasource1.DataSet.Eof do begin for ColIndex := 1 to ColCount do WordTable.Cell(RowIndex, ColIndex).Range.Text := datasource1.DataSet.Fields[ColIndex - 1].AsString; Inc(RowIndex); datasource1.DataSet.Next; end; finally datasource1.DataSet.Close; end; worddocument1.Application.Visible:=true; end; |
Enviar texto a word
hola yorllito: me parece que deberias agregar esta linea antes del while porque se estas parado en la ultima fila del dataset entonces solo te agregara esa linea.
saludos Seba.F1 |
Hola, puedes probar a añadir chr(13) (Intro)
worddocument1.Application.Selection.Range.set_text('Esto es una Prueba'+chr(13));//aqui inserto el texto de prueba Salu2, Cristina |
La franja horaria es GMT +2. Ahora son las 03:14:35. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi