Cargar un archivo de Word (.doc) en un RTF.

[dec]

Bueno para hacer esto, primero necesitamos agregar la biblioteca ComObj, en la clausula uses de nuestra unit.


procedure CargaDOCaRichEdit;
Var WordApp:Variant;
begin
if OpenDialog1.Execute then
Begin
WordApp := CreateOleObject('Word.Basic');

If not VarIsEmpty(WordApp) then
Begin
WordApp.FileOpen(OpenDialog1.FileName);
WordApp.FileSaveAs(Name := 'c:\temp_bb.rtf', Format:=6);
WordApp.AppClose;
WordApp:=Unassigned;
WordEditor.Lines.LoadFromFile('c:\temp_bb.rtf');
End
Else
ShowMessage('No puedo iniciar MS Word');
End;


WordEditor es un TRichEdit.

bueno...

ADIOS