word格式改变 ( 积分: 200 )

请问怎样利用delphi编程实现将.doc格式的文档转变为.rtf格式的文档？请贴详细代码，在线等待，谢谢！

1.FDoc:= FWord.Documents.Open('D:/doc.rtf');
...
FDoc.SaveAs('D:/test.rtf');
FDoc.Close;
FWord.Quit;
2.CopyFile(PChar('D:/登录说明书.doc'), PChar('D:/test.rtf'), True);
这两种方法都无法实现真正意义上的格式转变，因为用richveiwedit打开是乱码，unicode已设。

哈哈.
{Sub rtf()
'
' rtf Macro
' 宏在 2007-11-1 由 User 录制
'
ChangeFileOpenDirectory _
"C:/Program Files/Borland/Delphi6/Projects/wordToXml/"
ActiveDocument.SaveAs FileName:="abc.rtf", FileFormat:=wdFormatRTF, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End Sub
}


procedure TForm1.Button1Click(Sender: TObject);
var
xlsApp: Variant;
sExcelFile: string;
begin
xlsApp := CreateOleObject('word.Application');
sExcelFile:= 'C:/Program Files/Borland/Delphi6/Projects/wordToXml/abc.doc';
try
xlsApp.Documents.Open(sExcelFile);
xlsApp.ActiveDocument.SaveAs('C:/Program Files/Borland/Delphi/Projects/wordToXml/abc.rtf',6);

finally
xlsApp.Quit;
xlsApp := null;
end;
end;

强人，多谢！

最好的方法是调用OFFICE的文本转换器,使用的时候可以不需要安装WORD,而只需要两个DLL.具体实现你可以在大富翁全文检索中搜索"文本转换器"