Discussion :

[blondelle]

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 :

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
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 ?

[blondelle]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[blondelle]

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

[BOUBOU81]

et si tuessaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

est que ca fonctionne?

[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.

[blondelle]

BOUBOU81 a ecrit

et si tuessaye

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

bandit boy a ecrit

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 :

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

Salut collègue motard,

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