word另存为的问题 ( 积分: 200 )

请问使用delphi如果将word文件另存为其他文件，例如将kk.doc另存为tt.rtf，里面的内容不修改。请帖具体代码，在线等待。谢谢~！

直接COPY为一个新的文件就行了。
CopyFile(PChar('C:/aa.doc'), PChar('C:/kk.doc'), True);

艾,粘贴下吧
{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;

楼上的强[]

2楼的方法最简单。。。

zhksoft1，我是你后面第5个人注册的(ID)，哈哈