Discussion :

[chh2008]

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

[chh2008]

Correction du code :

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
 
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;