如何将 .doc 格式的文件转成 .rtf 的格式?

Question

var   
      dd,ee:olevariant;
  begin
        dd:=createoleobject('Word.Application');
        ee:=   dd.Documents.Open('C:\aa.doc');
        ee.saveas('c:\dd.rtf',8);
        dd.quit;
  end;这只是改了文件名呢,RichEdit 还是接受不到?
请问怎么处理

Answer 1

我测试 可以阿
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleServer, Word2000, comobj;type
  TForm1 = class(TForm)
    WordDocument1: TWordDocument;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
  dd, ee: olevariant;
  Format: OleVariant;
begin
  dd := createoleobject('Word.Application');
  ee := dd.Documents.Open('C:\aa.doc');
  Format := wdFormatRTF;
  ee.saveas('c:\dd.rtf', Format);
  dd.quit;end;end.