Probleme d'installation d'une macro OleWord

Version imprimable

Je reussi a installer partiellement une macro dans un document Word et a la detruire, mais j'ai un probleme pour passer une chaine de caracteres la chaine devrait s'ecrire "coucou" mais quand elle est passee sous Word elle est ecrite coucou les guillemets ont disparus.
le code:

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
Variant Appli, WordDoc, WordDocs, VBComp, vFileName;
int X;

Appli = Variant::GetActiveObject("Word.Application");
vFileName = "c:\\book1.doc";
WordDocs = Appli.OlePropertyGet("Documents");
WordDoc = WordDocs.OleFunction("Open", vFileName);
// on cree un module pour du code VB
VBComp =  WordDoc.OlePropertyGet("VBProject").OlePropertyGet("VBComponents").OleFunction("Add", 1);
// on renome le module sans espaces dans le nom
VBComp.OlePropertySet("Name", "MyModule");
VBComp.OlePropertyGet("CodeModule");
// on ecrit la macro dans le module cree
        X = VBComp.OlePropertyGet("CodeModule").OlePropertyGet("CountOfLines");
        VBComp.OlePropertyGet("CodeModule").OleProcedure("InsertLines", X + 1, "Sub laMacro()");
        VBComp.OlePropertyGet("CodeModule").OleProcedure("InsertLines", X + 2, "ActiveDocument.Content.Text =  ""Coucou"" ");
        VBComp.OlePropertyGet("CodeModule").OleProcedure("InsertLines", X + 3, "End Sub");
vMSWord.OleProcedure("Run", "laMacro");
//VBComp.OlePropertyGet("CodeModule").OleFunction("Run", "laMacro");
 // les deux fonctions ci dessous provoquent une erreur
VBComp.OlePropertyGet("CodeModule").OleFunction("DeleteLines", 3);
VBComp.OlePropertyGet("CodeModule").OleFunction("DeleteLines", 2);
VBComp.OlePropertyGet("CodeModule").OleFunction("DeleteLines", 1);

WordDoc.OlePropertyGet("VBProject").OlePropertyGet("VBComponents").OleFunction("Remove", VBComp);

La ligne en rouge n'est pas correctement executee.
Si quelqu'un a une idee ?

En ecrivant la ligne qui ne fonctionne pas de cette maniere j'affiche les guillemet mais plus le texte.
la ligne:
Code:

1 2 VBComp.OlePropertyGet("CodeModule").OleProcedure("InsertLines", X + 2, "ActiveDocument.Content.Text = chr(34) & Coucou & chr(34)");

05/09/2006, 13h03
blondelle

La je suis a cour d'idee une sujestion?
Je suis preneur!

et si tuessaye

Code:

1
2
 
VBComp.OlePropertyGet("CodeModule").OleProcedure("InsertLines", X + 2, "ActiveDocument.Content.Text =  \"Coucou\" ");

est que ca fonctionne?;)

05/09/2006, 13h58
bandit boy

Salut collègue motard,

Ton problème vient de l'insertion de caractère spéciaux, de la même manière que tu marques "C:\\...\\...\\fichier.txt" par exemple, tu ne souhaites qu'en faite "C\...\...\fichier.txt".
En gros, il te faut mette "\"coucou\"" pour avoir "coucou".

Ca marche pour " ' \ et d'autres.

BOUBOU81 a ecrit

Citation:

et si tuessaye

Code:
VBComp.OlePropertyGet("CodeModule").OleProcedure("InsertLines", X + 2, "ActiveDocument.Content.Text = \"Coucou\" ");
est que ca fonctionne?

bandit boy a ecrit

Citation:

Salut collègue motard,

Ton problème vient de l'insertion de caractère spéciaux, de la même manière que tu marques "C:\\...\\...\\fichier.txt" par exemple, tu ne souhaites qu'en faite "C\...\...\fichier.txt".
En gros, il te faut mette "\"coucou\"" pour avoir "coucou".

Ca marche pour " ' \ et d'autres

Merci a tous les deux vous avez effectivement raison il faut ecrire \"coucou\" et ca fonctionne.
le code:
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 Variant Appli, WordDoc, WordDocs, VBComp, vFileName; int X; Appli = Variant::GetActiveObject("Word.Application"); vFileName = "c:\\book1.doc"; WordDocs = Appli.OlePropertyGet("Documents"); WordDoc = WordDocs.OleFunction("Open", vFileName); // on cree un module pour du code VB VBComp = WordDoc.OlePropertyGet("VBProject").OlePropertyGet("VBComponents").OleFunction("Add", 1); // on renome le module sans espaces dans le nom VBComp.OlePropertySet("Name", "MyModule"); VBComp.OlePropertyGet("CodeModule"); // on ecrit la macro dans le module cree X = VBComp.OlePropertyGet("CodeModule").OlePropertyGet("CountOfLines"); VBComp.OlePropertyGet("CodeModule").OleProcedure("InsertLines", X + 1, "Sub laMacro()"); VBComp.OlePropertyGet("CodeModule").OleProcedure("InsertLines", X + 2, "ActiveDocument.Content.Text = \"Coucou\" "); VBComp.OlePropertyGet("CodeModule").OleProcedure("InsertLines", X + 3, "End Sub"); vMSWord.OleProcedure("Run", "laMacro"); // on detruit les lignes dans l'ordre inverse de la saisie VBComp.OlePropertyGet("CodeModule").OleFunction("DeleteLines", 3); VBComp.OlePropertyGet("CodeModule").OleFunction("DeleteLines", 2); VBComp.OlePropertyGet("CodeModule").OleFunction("DeleteLines", 1); // on efface le module WordDoc.OlePropertyGet("VBProject").OlePropertyGet("VBComponents").OleFunction("Remove", VBComp); // ici il n'y a plus aucune trace de notre macro
bandit boy a ecrit

Citation:

Salut collègue motard,

pour l'instant le motar est un peu eclope ainsi que son fier destrier