Discussion :

[TeuZ63]

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

[Charly910]

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

[TeuZ63]

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 :

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

[ero-sennin]

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.

[Charly910]

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 :

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

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

[TeuZ63]

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:

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

Okay Charly, merci quand même.

[Charly910]

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

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

[Charly910]

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

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