[ingabraham]

hola tengo el sg codigo para exportar unos datos a una plantilla .rtf en word.

Código Delphi [-]

Try
   
  //Crear Carpeta
    carpeta:= 'C:\BDATOS_TARJESOFT\Tmp';
   if Not DirectoryExists(Carpeta) Then
    CreateDir(Carpeta);

  SpeedButton1.Caption :='Generando el Registro.';
  (* Creas un objeto Word *)
  Word1 := CreateOleObject('Word.Application');
  SpeedButton1.Caption :='Generando el Registro..';
     Word1.Documents.Add('C:\BDATOS_TARJESOFT\ResolucionesTecnicosRegenciaFarmacia.rtf')
    SpeedButton1.Caption :='Generando el Registro...';
  Documento := Word1.Documents.Item(1);
  SpeedButton1.Caption :='Enviando Parametros a Word..';

 (* Asignas valores a los campos *)
    if  EdNroRegistro.Text <> '' then
      Documento.Variables.Add('NRESOLUCION', EdNroRegistro.Text)
    else
      Documento.Variables.Add('NRESOLUCION',' ');

    if   EdNombre1.Text <> '' then
      Documento.Variables.Add('NOMBRES', EdNombre1.Text)
    else
      Documento.Variables.Add('NOMBRES',' ');

    if  EdCedula.Text <> '' then
      Documento.Variables.Add('CEDULA', EdCedula.Text)
    else
      Documento.Variables.Add('CEDULA',' ');

  (* Actualizar campos *)
    Documento.Fields.ToggleShowCodes;
    Documento.Fields.Update;

  NuevoArchivo := 'C:\BDATOS_TARJESOFT\Tmp\ArchivoTmp'+IntToStr(DMDatos.ObtenerNroConsecutivo)+'.rtf';
  Word1.ActiveDocument.SaveAs(NuevoArchivo);
  DMDatos.IncrementarNroConsecutivo;

  SpeedButton1.Caption :='Abriendo Word...';
  (* Fuerzas a mostrar el contenido del campo *)
  Word1.ActiveWindow.View.ShowFieldCodes := false;
  SpeedButton1.Caption :='Archivo Completado.';
 
 
 
   (* Ver Word*)
  Word1.Visible := true;

 except
   on E:Exception do
   begin
    ShellExecute(Handle, nil, 'tskill', 'winword', nil, sw_hide);
    messagedlg(' Verifique sus datos que esten correctamente '+e.Message,mtWarning,[mbok],0);
  end;
end;

problemas, luego de cerrar el archivo me parece esta ventana.

1. error word
[ ] recuperar trabajo y reiniciar word.


2. aveces me aparece guardar plantilla normal.