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.