-
本版专家分：0结帖率 100% -
谢了
-
本版专家分：39898
-
- 蓝花 2003年6月 Delphi大版内专家分月排行榜第三
-
-
procedure TForm1.Button1Click(Sender: TObject);
var
dd,ee:olevariant;
begin
dd:=createoleobject('Word.Application');
ee:= dd.Documents.Open('C:\aa.rtf');
ee.saveas('c:\dd.htm',8);
dd.quit;
end;
这个是把RTF转化HTM的；你把SAVEAS的参数改成15，我记得，好象可把DOC转化RTF；自己多TRY；
