Discussion :

[PetitBoutDeCode]

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;

[Paul TOTH]

étrange...que contient cette unité ?

en général c'est la présence d'un composant sur la fiche qui produit l'ajout automatique d'une unité dans les Uses.

place cette unité en début de Uses si elle perturbe ton code.

[PetitBoutDeCode]

étrange...que contient cette unité ?

Eh bien je ne sais pas du tout , c'est la première fois que je bidouille un document Word avec Delphi..

place cette unité en début de Uses si elle perturbe ton code.

Ca a marché! Si je comprend bien Delphi cherche en priorité une correspondance avec les uses en fin de liste?

Je sais pas si je dis ça correctement, mais merci pour le dépannage en tout cas! j'étais bloqué la dessus depuis quelques heures déjà

[ShaiLeTroll]

WordApplication1 c'est un TWordApplication, c'est surement lui qui provoque l'ajout
Sinon c'est bête d'utiliser TWordApplication avec des variants, soit on fait tout en EarlyBinding avec TWordApplication soit tout en LateBinding avec OLEVariant

Si vous n'utilisez pas les inferfaces, supprimer WordApplication1 et remplacer par du OLE LateBinding voir Tutoriel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
      aFileName :='mondocument.docx'; 
      WordDocuments := WordApplication1.Documents; // a Changer
      WordDocument := WordDocuments.Open(Repertoire+'\Documents\'+aFileName);
 
 
      // ... à la fin
      WordApplication1.Visible := true; // a surppmier
    WordApplication1.Disconnect; // a surppmier

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
      aFileName :='mondocument.docx';  
      WordApp := CreateOleObject('Word.Application'); // déclarer comme OLEVariant
      WordDocuments := WordApp.Documents;
      WordDocument := WordDocuments.Open(Repertoire+'\Documents\'+aFileName);
 
       // ... à la fin
      WordApp.Quit;
      WordApp := unassigned;

Cela te permettra de retirer WordCS des uses.

[Paul TOTH]

Ca a marché! Si je comprend bien Delphi cherche en priorité une correspondance avec les uses en fin de liste?

Je sais pas si je dis ça correctement, mais merci pour le dépannage en tout cas! j'étais bloqué la dessus depuis quelques heures déjà

c'est le principe même du Pascal, un langage qui se compile en une seule passe. il se lit de haut en bas, donc ce qui est déclaré en dernier a la préférence sur ce qui précède; notamment quand deux unités déclarent des informations portant le même nom, c'est l'unité déclarée en dernier qui est utilisée...et pour utiliser un symbole, il DOIT avoir été déclaré précédemment, donc plus haut dans le code, Uses y compris.

[PetitBoutDeCode]

Je vois..

J'imagine que c'est ce qui arrive à force de copier/coller/adapter sans forcément comprendre l'intégralité du code .

Si vous n'utilisez pas les inferfaces, supprimer WordApplication1 et remplacer par du OLE LateBinding voir Tutoriel

Effectivement cela corrige le soucis, en revanche j'étais passé par ce tutoriel avant de poster (sans comprendre l'origine du soucis) et je me suis rendu compte qu'il y avait une erreur (je crois),

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
try
    vMSWord := GetActiveOleObject('Excel.Application');
except
    vMSExcel := CreateOleObject('Excel.Application');
end;

Il faudrait remplacer par Word.Application non ?

c'est le principe même du Pascal, un langage qui se compile en une seule passe. il se lit de haut en bas, donc ce qui est déclaré en dernier a la préférence sur ce qui précède; notamment quand deux unités déclarent des informations portant le même nom, c'est l'unité déclarée en dernier qui est utilisée...et pour utiliser un symbole, il DOIT avoir été déclaré précédemment, donc plus haut dans le code, Uses y compris.

C'est exactement le genre d'informations que j'aime apprendre, même si j'imagine que ça fait parti des bases qu'il me faudrait revoir

[Paul TOTH]

oui Excel.Application, c'est sans surprise utilisé pour dialoguer avec Excel

les bases me semble être un minimum, j'ai publié il y a longtemps un livre sur Delphi 7 dont les bases restent valides...mais il n'est plus en vente

j'ai cru le trouver en ligne sur ce site mais ce n'est que la table des matières