TWordApplication : ajouter du texte sans effacer

Version imprimable

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:

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:

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:

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:

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:

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

15/12/2006, 14h24
blondelle

Salut LotfiB:
Tu utilise un composant de la barre d'outils BCB "Office2k"?
15/12/2006, 15h06
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
15/12/2006, 15h13
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.
15/12/2006, 16h30
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...

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:

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;

15/12/2006, 17h20
LotfiB

merci
j'essayerai ton ole

ciao
Lotfi

voilà ce que j'ai essayé
http://c.developpez.com/faq/bcb/?pag...icationrunning

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Variant vMSWord, vWDocument, vWDocuments;
try
{
		vMSWord = Variant::GetActiveObject("Word.Application");
} catch(...)
{
		vMSWord = Variant::CreateObject("Word.Application");
}
vMSWord.OlePropertySet("Visible", true);
// cree un nouveau doc
vWDocuments = vMSWord.OlePropertyGet("Documents");
vWDocument = vWDocuments.OleFunction("Add");
Variant vFileName = "c:\\test_word.doc"; // nom fichier
vWDocuments.OleFunction("Saveas", vFileName);  // ici on sauve un document
 
vWDocuments.OleFunction("Close");  // on ferme le document
vMSWord.OleFunction("Quit");   // on ferme Word
vMSWord = Unassigned;    // on libere les Variants

bon ça commencçait bien mais à l'enregisteement il m'envoit sur les roses :
EOleSysError : nom inconnu

tu as la syntaxe de ttes les fonctions OleFunction ?

merci
Lotfi

15/12/2006, 18h21
blondelle

Un lien sur un tuto

Citation:

http://lfe.developpez.com/Word/

dit moi sur quelle ligne tu a ton erreur

Je crois que c'est sur la ligne de sauvegarde il faut ecrire.

Code:

1
2
3
4
5
6
 
// on declare le Variant
Variant vFileName;
// on declare le chemin
vFileName = "c:\\test_word.doc"; // nom fichier
vWDocument.OleProcedure("Saveas", vFileName);  // ici on sauve un document

15/12/2006, 22h15
LotfiB

merci, tu m'as vraiment été d'une grande aide :P
j'avais 2 erreurs à cause d'un copier coller malheureux d'une procedure d'Open. qui utilise vWDocuments et non pas vWDocument
et OleProcedure à la place de function...
que des erreurs auxquelles je vais faire attention

Code:

vWDocument.OleProcedure("Saveas", vFileName); // ici on sauve un document

je vais voir s'il y a un help pour ttes ces fonction, j'ai visual studio 2005 installé aussi (à la fac, c'est ça qui est installé via MSDN :-( moi je prefere BDS 2006) y a peut etre de la doc/fichiers hlp dessus

ciao
Lotfi
16/12/2006, 11h57
blondelle

Salut LotfiB:
Je suis contant que cela marche pour de la Doc il n'y a rien juste des bouts de code.
16/12/2006, 20h58
LotfiB

j'ai parlé trop vite
en fait j'ai des difficulté avec les tableaux, comment selectionner 2 lignes, ou bien aller apres le tableau pour inserrer du texte ou un nouveau paragraphe
et comme tu dis, il n'y a que des bouts de code qui existent de part et d'autres sans qu'il n'y ai de continuité.
je confond Range et Selection, y a des fonctions qui sont compatible avec range d'autres avec selection..
comment fait on pour sortir d'un tableau ???
ciao
Lotfi
16/12/2006, 22h43
blondelle

Ton post est marque resolu refait en un autre en decrivant tes problemes j'essairais de les resoudre.
A+