HTML to RTF

[dec]

Hola,

Supongo que lo que quieres es exportar un documento Html tal como lo ve el usuario al formato Rtf, esto es, supongo que no te servirá algo así, que lo que hace es exportar el código Html al formato Rtf, utilizando los componentes SynEdit:

Código Delphi [-]
uses
   // SynEdit 2.00
   SynEditHighlighter,
   SynHighlighterHtml,
   SynEditExport,
   SynExportRTF;
 
 // Exporta código Html al formato Rtf usando
 // los componentes SynEdit "de forma no visual"
 //
 procedure ExportarHtmlARtf(archivoHtml: string);
 var
   docHtml: TStrings;
   synHtml: TSynHTMLSyn;
   exporta: TSynExporterRTF;
 begin
   docHtml := TStringList.Create;
   synHtml := TSynHTMLSyn.Create(Application);
   exporta := TSynExporterRTF.Create(Application);
   try
     docHtml.LoadFromFile(archivoHtml);
     exporta.Highlighter := synHtml;
     exporta.ExportAll(docHtml);
     exporta.SaveToFile(ChangeFileExt(archivoHtml, '.rtf'));
   finally
     docHtml.Free;
     synHtml.Free;
     exporta.Free;
   end;
 end;
 
 // Ejemplo de llamada a "ExportarHtmlARtf"
 //
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ExportarHtmlARtf('C:\archivo.html');
 end;

¿Verdad que no estoy equivocado y lo que te acabo de proponer no te sirve para lo que pretendes?