Discussion :

[alexmorel]

Voilà je crée un tableau dans un nouveau document Word.

Je le rempli..

Mais vers la fin je shoutait rajouter une ligne a la fin de mon tableau.

Mais je ne trouve pas...

Quelque a-t-il une idée.

Meric d'avance

[Maddelphi]

salut,

Don si j'ai compris tu souhaites ajouter un texte a la fin de ton tableau,
ma foie tu peux ton simplement dans word Insertion puis Signet... tu mes le nom(ici WURL) de ton signet ala fin de ton tableau afin de mettre ce 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
 
procedure ...
var
   Docu, asaveChange: OleVariant;
   vBookMark, vBookMarks, vContent: Variant;
   Visualiser                     : integer;
begin
   Docu:='C:\test.doc';
   WordApplication1.Documents.Open  (Docu,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
     WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
     vBookMarks:= WordDocument1.Bookmarks;
             vBookMark:=vBookMarks.Item('WURL');//Nom du signet
             vBookMark.Select;
             vContent:=vBookMark.Range;
             vContent.InsertAfter('http://<a href="http://www.developpez.com&#39;);" target="_blank">www.developpez.com');</a>
    Docu:='C:\testbis.doc';//ici tu change de nom pour ne par avoir ton originale modifier
   aSaveChange:= False;
   WordDocument1.SaveAs(Docu);
end;

j'éspére t'avoir aider si tu veux plus tu le demande sinon si ce n'est pas ce que tu demande peux tu reformuler ta question

[alexmorel]

Je souhait rajouter des lignes a mon tableau au fur et à mesure que je le rempli...

[Maddelphi]

A mon avis avant de lancer dans word tes données tu devrais faire une boucle afin de connaitre le nombre de données à envoyer. J'ai dejà fais ça une fois avec le code suivant.
Mais si tu ne sais pas ce que tu envoyes et le nombre de données dans ton tableau et bien....

Code :

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

1
2
3
4
5
 
    procedure CreerUnTableau(Var InstanceDeWord, Doc : Variant; NbreLigne,NbreColonne : Integer);
    begin
       Doc.Tables.add(InstanceDeWord.selection.Range,NbreLigne,NbreColonne );
    end;

cela peut-il répondre ou te mettre sur une piste?

PS: Je pense pas que ses soit possible de modifier les colonnes d'un tableau créer auparavant faut voir en vb et voler son code

[alexmorel]

Je sais que c'est possible en vb, il faut sélectionner la dernière ligne et faire un tab !!

Mais comment le faire avec delphi ???

[Maddelphi]

alors voila ton trésor :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
   Docu:='C:\Test.doc';
   WordApplication1.Connect;
   WordApplication1.Visible:=True;
 
   WordApplication1.Documents.Open(Docu,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
   EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
   EmptyParam,EmptyParam,EmptyParam);
   WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
   WordApplication1.Run('Macro1');

Passe par une macro alors

[alexmorel]

non on doit pouvoir le faire sans macro !!!

[Laurent Dardenne]

On peut le faire.

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
 
Var Tableau:Table;
    i:Integer;
    DefaultTableBehavior,
    AutoFitBehavior: OleVariant;
 
    Lignes: Rows;
    BeforeRow: OleVariant;
 
begin
  DefaultTableBehavior:=wdWord9TableBehavior;
  AutoFitBehavior:=wdWord8TableBehavior;
  Tableau:=WordDocument1.Tables.Add(WordDocument1.Range,5,3,
                                    DefaultTableBehavior,AutoFitBehavior);
 
  For i:= 1 To Tableau.Rows.Count Do
    Tableau.Cell(i, 2).Range.Text := 'Mon texte '+IntToStr(i);
    //Récupére la derniére ligne
  BeforeRow:=Tableau.Rows.Item(Tableau.Rows.Count);
   // Ajoute avant la derniére
  Tableau.Rows.Add(BeforeRow);
End;

L'inconvénient est qu'on ne peut pas insérer une nouvelle ligne aprés la derniére ligne. Il n'existe pas de paramètre AfterRow
Dans ton cas ajoute une ligne supplémentaire lors de la création et supprime-la en fin de traitement.

Tu n'as pas accés à la doc de Word ?

[alexmorel]

Merci ça fonctionne super...

[Maddelphi]

cool ça pourrait me servir (me casser la tête depuis hier)