hola tengo el sg codigo para exportar unos datos a una plantilla .rtf en word.
Código Delphi
[-]
Try
carpeta:= 'C:\BDATOS_TARJESOFT\Tmp';
if Not DirectoryExists(Carpeta) Then
CreateDir(Carpeta);
SpeedButton1.Caption :='Generando el Registro.';
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..';
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',' ');
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...';
Word1.ActiveWindow.View.ShowFieldCodes := false;
SpeedButton1.Caption :='Archivo Completado.';
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.