Tableau Word avec OLE

Bonjour,
Actuellement en stage, je dois réaliser pour l'entreprise dans laquelle je suis une génération automatique de facture sur Word.
Pour cela, je dois réaliser un tableau à taille variable.
Et c'est là qu'est le problème : débutant en Delphi, je ne sais pas comment réaliser un tableau avec OLE, et je ne peux pas intégrer le tableau dans mon modèle puisqu'il est de taille variable.

En cherchant je suis tombé sur ce lien :
http://delphi.developpez.com/faq/?page=wordtableaux

Pour le tester j'ai réalisé un copier/coller, mais beaucoup de mot de syntaxe ne sont pas reconnus par l'éditeur de code.

Je demande donc votre aide pour réaliser cette mission qui m'a était confiée. :)

TeuZ

Bonjour,
la taille variable n'est pas un problème, dans l'exemple donné dans la FAQ tu tremplaces 5, 3 par des variables représentant le nombre de lignes et de colonnes que tu calcules dans ton appli.

Sinon, il faut d'abord ajouter l'objet TWordApplication et le connecter - regarde toute la FAQ consacrée à Word

FAQ Word

A+

Charly

Bonjour,
Après plusieurs essais je reviens vers vous.

Tout d'abord : TWordApplication est il intégré à word2000 (dans uses?) ?

J'ai cherché dans la FAQ pour les différents composants, aucune erreur affiché à la base, mais quand je compile : Types incompatibles : '_Document' et 'Variant' & Types incompatibles : 'WordRange' et 'Variant'.

J'ai donc essayé de changer ces types en Variant, mais là le débogueur renvoi "Opération de variant incorrecte".

Je conçois que mon code est une suite de codes trouvés dans la FAQ mais je pensais pouvoir l'adapter.

Il doit me manquait encore des trucs que j'ai oublié.

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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

unit Unit1;   interface   uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, word2000;   type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end;   var Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject);   var DocWord:_document; Template,WordApplication1 , AsModel: OleVariant; Tableau:Table; i:Integer;   begin WordApplication1.Connect; WordApplication1.Visible:=True; Template:='C:\Users\Clement - Stage\Desktop\New\Doc1.dotx'; AsModel:=False; DocWord:=WordApplication1.Documents.Add(Template,AsModel);   Tableau:=DocWord.Tables.Add(WordApplication1.Selection.Range,5,3); For i:= 1 To Tableau.Rows.Count Do Tableau.Cell(i, 2).Range.Text := 'Mon texte '+IntToStr(i);     WordApplication1.disconnect;     end;   end.

---

Mes questions sont peut être idiotes et la réponse sous mes yeux, mais pour le moment je ne vois pas comment faire.

En tout cas merci Charly pour cette première réponse rapide.

Edit : Je viens d'essayer http://delphi.developpez.com/faq/?pa...ructiontableau mais j'ai le même soucis.

Salut,

Je suggère que tu y ailles par étape. D'abord, il te faut lancer Word. Pour ça, tu peux suivre le tutoriel Pilotage OLE de Word à partir de Delphi

Je ne connaissais pas l’existence dans les uses de word2000.

Une fois que tu maîtriseras bien le lancement de word, tu peux t'aider du tutoriel pour les tableaux.

Bonjour,
le fait de poser un composant WordApplication sur la fiche, ajoute automatiquement "WordXP, OleServer" à clauses uses

mais chez moi, effectivement, avec D7, W7, Word2000 installé cela ne fonctionne pas

je ne peux pas faire :

Code:

---

1 2 3 4 5 6 7 8 9

Try Wordapplication1.Connect; MessageDlg('Word est connecté', mtError, [mbOk], 0); except MessageDlg('Word n''est pas installé', mtError, [mbOk], 0); Abort; end; WordApplication1.AutoQuit := True ; WordApplication1.disconnect ;

---

l'application se fige sur le connect.

je pense qu'il faudrait que j'installe la bonne version de TWordApplication.

ou bien c'est W7 qui refuse d'ouvrir WordApplication ?

Je ne peux donc pas t'aider ...

A+

Charly

En fait, le lancement de Word n'est pas un problème, j'ai réalisé il y a quelques jours d'autres fichiers Word grâce à Delphi.

J'ai utilisé ces commandes pour me coller à la FAQ au cas où, afin d'avoir les même variables etc ...

Le problème vient de la génération d'un tableau. Et en suivant la partie "Tableaux" de la FAQ j'ai l'impression qu'il me manque des composants (uses, ...) car les types ne sont pas reconnus ou incompatibles entre eux, comme lorsque je compile:

Citation:

---

Types incompatibles : '_Document' et 'Variant' & Types incompatibles : 'WordRange' et 'Variant'.

---

Okay Charly, merci quand même.

Effectivement, il faut suivre la méthode de Ero-Sennin pour s'affranchir des composants Word de Delphi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm3.Button2Click(Sender: TObject); var vMSWord : variant; vWDocument, vWDocuments : variant; aFileName : AnsiString; Begin vMSWord := CreateOleObject('Word.Application') ; vMSWord.Visible := true ; vWDocuments := vMSWord.Documents; vWDocument := vwDocuments.Add;   ShowMessage('Word ouvert') ; vMSWord.Quit ; vMSWord := unassigned ; End;

---

A+

Charly

Voici la création d'un tableau à 3 colonnes et 5 lignes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm3.Button2Click(Sender: TObject); var vMSWord : variant; vWDocument, vWDocuments : variant; aFileName : AnsiString; Begin vMSWord := CreateOleObject('Word.Application') ; vMSWord.Visible := true ; vWDocuments := vMSWord.Documents; vWDocument := vwDocuments.Add; vWDocument.Tables.Add(vMSWord.Selection.Range,5,3); ShowMessage('Word ouvert') ; vMSWord.Quit ; vMSWord := unassigned ; End;

---

A+

Charly

Ça marche parfaitement :ccool:
Merci beaucoup à vous 2 !

:lahola:

A la prochaine.

TeuZ