TwordParaTorpes1

[angelp4492]

Hola amigos como están, estoy utilizando este magnifico componente y tengo una plantilla con unas 500 variables que las reemplazo con la intrucción replace , el problema que tengo esq utilizando el ejemplo que viene con el compnente se me habre la plantilla y empieza a reemplaza, hay alguna manera de que no se habra la plantilla, hasta que no terminie.

este es una muestra de lo que quiero hacer pero para 500 variables.

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject); 
var   informe: string;
 begin   informe:= ExtractFilePath(Application.ExeName)+Table1Common_Name.AsString+'.doc';
   with WordParaTorpes1 do begin
        filename:=ExtractFilePath(Application.ExeName)+'plantilla.doc';
        if FileExists(filename) then Open else exit;
        Replace('NombreComun',Table1Common_Name.AsString);
        Replace('NombreCientifico',Table1SpeciesName.AsString);
        Replace('Categoria',Table1Category.AsString); 
       Replace('LongitudCm',Table1Lengthcm.AsString);
        Replace('LongitudIn',Table1Length_In.AsString);
        Replace('Notas',Table1Notes.AsString);
        DBImage1.CopyToClipboard;
        PasteImage('Imagen'); 
       SaveAs(informe);
   end;
 end;

o Agradecería que me dieran otra idea para generar un reporte con esta cantidad de datos.

[urixiv]

Hola,
no se como funciona el Wordparatorpes, pero en mi empresa abrimos ficheros word creandolos como OleObjects, que me imagino es lo que debe hacer este componente.
Bueno en fin, debería existir una propiedad que fuera Visible, tan solo ponerla a False y ya no verías nada.

Espero te sirva de ayuda, ya te digo, yo lo hago con words que abrimos y funciona.

Un saludo