rtf转html word

参考以下：


procedure TForm1.Button1Click(Sender: TObject);
var
  dd,ee:olevariant;
begin
  dd:=createoleobjec('word.application');
  ee:=dd.documents.open('test.rtf');
  ee.saveas('test.htm',8);
  dd.quit;
end;

或者

在Form上放一个Servers页的WordApplication和WordDocument：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Word97, OleServer;

type
  TForm1 = class(TForm)
    WordApplication1: TWordApplication;
    WordDocument1: TWordDocument;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var 
  ItemIndex: OleVariant; 
  FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, 
  PasswordDocument, PasswordTemplate, Revert,
  WritePasswordDocument, WritePasswordTemplate, Format, SaveChanges: OleVariant;

begin

  try
  Wordapplication1.Connect;
  except 
    on E: Exception do
      begin 
        Showmessage(E.Message); 
        Abort; 
      end; 
  end; 
  Wordapplication1.Visible := false;
  WordApplication1.Caption := 'Delphi automation'; 

  FileName := 'c:\新建 Microsoft Word 文档.doc';  //要写Full Path Name;
  ConfirmConversions := False; 
  ReadOnly := False; 
  AddToRecentFiles := False; 
  PasswordDocument := ''; 
  PasswordTemplate := ''; 
  Revert := True; 
  WritePasswordDocument := ''; 
  WritePasswordTemplate := ''; 
  Format := wdOpenFormatDocument; 

  WordApplication1.Documents.Open(FileName, ConfirmConversions, ReadOnly,
    AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, 
      WritePasswordDocument, 
    WritePasswordTemplate, Format); 

  {Assign WordDocument component} 
  ItemIndex := 1; 
  WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));

  Format := wdFormatRTF;
  FileName := 'c:\newrtf.rtf';
  WordDocument1.SaveAs(FileName,Format);
  //WordDocument1.Disconnect;
  SaveChanges := wdDoNotSaveChanges;
  WordApplication1.Quit(SaveChanges);
  WordApplication1.Disconnect;

end;

end.