5,943
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
KD007 2003-10-09
- 打赏
- 举报
多谢！！！
da_yu 2003-10-09
- 打赏
- 举报
关注。
outer2000 2003-10-09
- 打赏
- 举报
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；
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；
