archivo final al concatenar archivos rtf

[[maeyanes]]

Hola...

Lo que sucede es que lo estás guardando como un documento en formato Winword y no RTF...

Trata así:

Código Delphi [-]
uses COMObj, Word2000;

var
  Word: OleVariant;

begin
  Word := CreateOleObject('Word.Application');
  Word.Documents.Add('c:\doc1.rtf');
  Word.ActiveDocument.Select;
  Word.Selection.Copy;
  Word.Documents.Add('c:\doc2.rtf');
  Word.Selection.Paste;
  Word.ActiveDocument.SaveAs('c:\newdoc.rtf', wdFormatRTF);
  Word.Quit;
  Word := UnAssigned
end;

Este código no lo he probado, pero compiló bien...


Saludos...