Enviar texto a word

[yorllito]

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;

[Seba.F1]

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.

Código Delphi [-]
datasource1.DataSet.first;

saludos Seba.F1

[cgutisan]

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