convertir Word en RTF

Bonjour
j''essai de convertir un document word en format RTF pour ce faaire j'utilise le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
var
      ItemIndex:   OleVariant;
      FileName,ConfirmConversions,ReadOnly,AddToRecentFiles,
      PasswordDocument,PasswordTemplate,Revert,
      WritePasswordDocument,WritePasswordTemplate,Format,SaveChanges:       OleVariant;
begin
      Wordapplication1.Connect;
      Wordapplication1.Visible:=false;
      ConfirmConversions   :=   False;
      ReadOnly   :=   False;
      AddToRecentFiles   :=   False;
      PasswordDocument   :=   '';
      PasswordTemplate   :=   '';
      Revert   :=   True;
      WritePasswordDocument   :=   '';
      WritePasswordTemplate   :=   '';
      Format   :=   wdOpenFormatDocument;     
      FileName   := 'C:\Documents and Settings\Administrateur\Bureau\LOT N°   04.doc';  
      WordApplication1.Documents.Open(FileName,   ConfirmConversions,   ReadOnly,
                                      AddToRecentFiles,   PasswordDocument,   PasswordTemplate,   Revert,
                                      WritePasswordDocument,  WritePasswordTemplate,   Format,EmptyParam
                                      ,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
      Format:=wdFormatRTF;
      FileName:='C:\Documents and Settings\Administrateur\Bureau\LOT N° 04.rtf';
      WordDocument1.SaveAs(FileName,Format); 
      SaveChanges   :=   wdDoNotSaveChanges;
      WordApplication1.Quit(SaveChanges);
      WordApplication1.Disconnect;

mais le résulta donne un document RTF vierge ou se trouve la faille ?
merci

procedure TForm1.Button1Click(Sender: TObject); var ItemIndex: OleVariant; FileName,ConfirmConversions,ReadOnly,AddToRecentFiles, PasswordDocument,PasswordTemplate,Revert, WritePasswordDocument,WritePasswordTemplate,Format,SaveChanges: OleVariant; dd: olevariant; begin Wordapplication1.Connect; Wordapplication1.Visible:=false; FileName := 'C:\Documents and Settings\Administrateur\Bureau\LOT N° 04.doc'; //ouverture WordApplication1.Documents.Open(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam ,EmptyParam,EmptyParam,EmptyParam,EmptyParam); FileName:='C:\Documents and Settings\Administrateur\Bureau\LOT N° 04.rtf'; Format:=wdFormatRTF; WordApplication1.ActiveDocument.SaveAs( FileName, Format, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam ,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam); SaveChanges := wdDoNotSaveChanges; WordApplication1.Quit(SaveChanges); WordApplication1.Disconnect; end;