Discussion :

[LotfiB]

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

[blondelle]

Salut LotfiB:
Tu utilise un composant de la barre d'outils BCB "Office2k"?

[LotfiB]

oui bien sûr, ce sont les 3 composants pour dialoguer avec Word
j'ai BDS 2006, mais y a les meme en BCB6

[blondelle]

Je ne connais pas ces composants, je peu t'aider mais en utilisant OleWord qui ne demande aucun composants sur la fiche.
Il n'existe pas de DOC pour utiliser ces composants il y a dans la FAQ C++BUILDER des exemples pour Excel pas encore pour Word.
Si tu est interresse par la gestion OleWord dis le je te passerais un bout de code pour ouvrir Word, inserrer du texte, fermer Word.

[LotfiB]

je voudrai le faire en C++ avec le composant et les appels sont rudimentaires

j'ai beau cherché sur internet, je tombe que sur du Delphi ou alors les gens ne font que du truc local
je cherche un exemple de qqun qui est arrivé à remplir tte une page avec du texte, puis change de police / format puis met un tableau, l'encadre, puis mette une image etc...

[blondelle]

Je te passe le code pour inserer du texte, changer laFont, inserer un tableau, et fermer Word tu ne doit pas utiliser le composant et supprimer l'appel #include <office_2k.hpp >
a la place il faut inserer #include <utilcls.h>.

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
48
49
50
51
52
53
 
vMSWord = Variant::CreateObject("Word.Application");
vMSWord.OlePropertySet("Visible", true);
try
{
    vMSWord = Variant::GetActiveObject("Word.Application");
} catch(...)
{
    vMSWord = Variant::CreateObject("Word.Application");
}
vWDocuments = vMSWord.OlePropertyGet("Documents");
// ici on ouvre le document avec une feuille vierge
//vWDocument = vWDocuments.OleFunction("Add");
//
vFileName = "c:\\test_word.doc"; // date , book1
vLink = Unassigned;
vReadOnly = false; // lecture seule
vFormat = Unassigned;
vReadPass = "MotDePasse"; // mot de passe du document
vWDocuments = vMSWord.OlePropertyGet("Documents");
// ici on charge un document sur la feuille
vWDocument = vWDocuments.OleFunction("Open", vFileName, vLink, vReadOnly, vFormat, vReadPass);
 
// on prepare la Font du texte
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Font").OlePropertySet("Name", "Arial");
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Font").OlePropertySet("Size", "8");
 
// on insere du texte
vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText", "insertion de texte");
vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText", "insertion de texte1");
vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText", "insertion de texte2");
 
// on fait un passage a la ligne suivante
vMSWord.OlePropertyGet("Selection").OleFunction("TypeParagraph");
 
// on insere un tableau deux lignes six colonnes
vWDocument.OlePropertyGet("Tables").OleFunction("Add", vMSWord.OlePropertyGet("Selection").OlePropertyGet("Range"), 2, 6);
 
// on selectionne tout le tableau
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Tables").OleFunction("Item", "1").OleProcedure("Select");
 
// on prepare la Font du tableau
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Font").OlePropertySet("Name", "wingdings 3");
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Font").OlePropertySet("Size", "18");
//----------------------------------
//----------------------------------
// on ferme Word
// on ferme le document
vWDocuments.OleFunction("Close");
// on ferme Word
vMSWord.OleFunction("Quit");
// on libere les Variants
vMSWord = Unassigned;