Bonsoir,

Je suis actuellement en train de développer une fonction qui permet d'ouvrir et modifier un document Word, enfin, pour être honnête, la fonction est déjà codé je ne fais que la modifier pour l'adapter à un nouveau document.

Le problème que je rencontre est que Delphi ajoute de son propre chef dans les uses "WordCS", du coup toutes les autre fonctions ne compilent plus même celles qui fonctionnaient initialement...

J'ai une sauvegarder du projet ce n'est pas le soucis, mais je n'arrive pas à trouver dans les options ce que je pourrais changer pour bloquer cette initiative de Delphi
Je suis sous delphi 6


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
30
31
32
33
34
35
36
37
38
39
 
 
//------------------------------------------------------------------------------
procedure TForm1.EditionWord;
var
  aFileName : AnsiString;
  WordDocument, WordDocuments : variant;
 
begin
    With Query Do
    Begin
      aFileName :='mondocument.docx';
      WordDocuments := WordApplication1.Documents;
      WordDocument := WordDocuments.Open(Repertoire+'\Documents\'+aFileName);
      WordDocument.shapes.item(1).select;
      WordApplication1.selection.typetext(fieldbyname('NOM').AsString);
      WordDocument.shapes.item(2).select;
      WordApplication1.selection.typetext(fieldbyname('PRENOM').AsString);
      WordDocument.shapes.item(3).select;
      WordApplication1.selection.typetext(fieldbyname('ADR1').AsString + ' ' + fieldbyname('ADR2').AsString + ' ' + fieldbyname('VILLE').AsString);
      WordDocument.shapes.item(4).select;
      WordApplication1.selection.typetext(fieldbyname('CP').AsString);
      WordDocument.shapes.item(5).select;
      WordApplication1.selection.typetext(fieldbyname('EMAIL').AsString);
      WordDocument.shapes.item(1).select;
 
      aFileName := Repertoire+'\Resultats\'+'mondoc '+fieldbyname('NOM').AsString+' ' +fieldbyname('PRENOM').AsString+'.docx';
 
      WordDocument.SaveAs(aFileName,EmptyParam,EmptyParam,
                 EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                 EmptyParam,EmptyParam,EmptyParam,EmptyParam);
      CopyFile(PChar(aFileName),PChar(FileListBox.Directory+'\'+ExtractFileName(aFileName)),False);
      FileListBox.Update;
    End;
    WordApplication1.Visible := true;
    WordApplication1.Disconnect;
    WordDocument := unassigned;
    WordDocuments := unassigned;
end;