Muchas Gracias duilioisola,
efectivamente, tenias razón, me cree otra funcion para hacer el trabajo y quedó asi:
Código Delphi
[-]
procedure ExportarArchivoDocX2(const RichEdit: TRxRichEdit);
var
WordApp, Document: Variant;
begin
WordApp := CreateOleObject('Word.Application');
WordApp.Visible := False;
Document := WordApp.Documents.Add;
try
CopiarContenidoConFormatoAlPortapapeles(RichEdit);
Document.Content.Paste;
WordApp.Visible := True;
finally
Document := Unassigned;
WordApp := Unassigned;
end;
end;
Cita:
Empezado por duilioisola
Creo entender que quieres - que se abra Word
- pegarle el contenido RTF
- que se quede visible, sin guardar, para que el usuario pueda seguir haciendo modificaciones
Supongo que podrías hacer lo siguiente:
Código Delphi [-]
try
CopiarContenidoConFormatoAlPortapapeles(RichEdit);
Document.Content.Paste;
WordApp.Visible := True;
finally
Document := Unassigned;
WordApp := Unassigned;
end;
|