请教WORD转换成RTF

Question

请教，我用以下代码把WORD文档转换成RTF（不考虑格式丢失）但转换后无论是用delphi的RICEIDE，还是用WINDOWS自带的写字板打开，显示的都是代码，请问是哪里出错了呢?谢谢uses  Comobj;procedure TForm1.Button1Click(Sender: TObject);
var
  WordApp: Variant;
begin
  if OpenDialog1.Execute then
  begin
    WordApp := CreateOleObject('Word.Basic');
    if not VarIsEmpty(WordApp) then
    begin
      WordApp.FileOpen(OpenDialog1.FileName);
      WordApp.FileSaveAs(Name:= 'c:\temp_bb.rtf',Format:=6);
      WordApp.AppClose;
      WordApp:=Unassigned;
     end
    else ShowMessage('Could not start MS Word');
  end;
end;

Answer 1

格式不对，Format:=6 改成 Format:=11试试

Answer 2

Good,Thank you!另再请教一问题，我将WORD文档转换成RTF，还想对这个RIF进行一些操作比如对这个RTF文件进行编码处理，使得只有我的程序才能读取这个RTF文档，请问该如何做呢？谢谢