Bonjour
j''essai de convertir un document word en format RTF pour ce faaire j'utilise le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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