Sous Word depuis Delphi

Version imprimable

15/06/2004, 14h41
alexmorel

Sous Word depuis Delphi

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

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:

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

15/06/2004, 19h46
alexmorel

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

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:

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

15/06/2004, 23h07
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 ???

alors voila ton trésor :

Code:

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

16/06/2004, 00h20
alexmorel

non on doit pouvoir le faire sans macro !!!

On peut le faire.
Code:

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 ?

17/06/2004, 08h30
alexmorel

Merci ça fonctionne super...
17/06/2004, 12h45
Maddelphi

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