Bonjour

Même avec la FAQ qui se trouve à côté ds Delphi, je n'arrive pas à ajouter une table sans effacer mon texte précédent.

ce qui marche :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
WordApplication1->Connect();
WordApplication1->Visible=true;
WordDocument1->Connect();
WordParagraphFormat1->Connect();
WordRange * MyRange= WordDocument1->Range(EmptyParam, EmptyParam);
MyRange->InsertAfter(WideString("Mon texte\n"));
MyRange->InsertAfter(WideString("Mon 2nd texte\n\n"));
WordParagraphFormat1->set_Alignment(wdAlignParagraphCenter);
MyRange->InsertAfter(WideString("Mon 3texte\n"));
MyRange->InsertAfter(WideString("Mon 4 texte\n"));
MyRange->Font->Name = WideString("Arial");
MyRange->Font->Size = 8;
Si j'essaye de rajouter sous forme de paragraphe ça marche mais il fait tjrs partie du texte du haut :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
MyRange->InsertParagraphAfter();
MyRange->InsertAfter(WideString("Le 2eme\n"));
WordDocument1->Paragraphs->Add(EmptyParam);
de sorte que qd je lui change les apparences, tout change
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
MyRange->Font->Name = WideString("Verdana");
MyRange->Font->Size = 10;
cela reste normal car MyRange s'occupe de tout ce que j'ai rentré

Apres j'essaye de rajouter une table :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Table * T1;

WordApplication1->Selection->EndKey(EmptyParam,EmptyParam);
T1 = WordDocument1->Tables->Add( ????, 1, 3, EmptyParam, EmptyParam);
WordParagraphFormat1->ConnectTo(T1->Cell(1, 1)->Range->ParagraphFormat);
WordParagraphFormat1->Alignment=wdAlignTabCenter;
???? : je n'arrive pas à mettre autre chose que
Code : Sélectionner tout - Visualiser dans une fenêtre à part
WordDocument1->Range(EmptyParam, EmptyParam)
qui m'ecrase mon 1er texte

Avez vous une idée ou un bon tuto pour C++/Builder qui permet de trouver une alternative ?
J'ai trouvé le fichier Vbawd10.chm mais qui utilise VBA :-(

Merci