TwordParaTorpes1

angelp4492 · #1 06-11-2010

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.