IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

C++Builder Discussion :

Probleme d'installation d'une macro OleWord


Sujet :

C++Builder

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Rédacteur
    Avatar de blondelle
    Homme Profil pro
    Inscrit en
    Mars 2006
    Messages
    2 738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 2 738
    Par défaut Probleme d'installation d'une macro OleWord
    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 ?

  2. #2
    Rédacteur
    Avatar de blondelle
    Homme Profil pro
    Inscrit en
    Mars 2006
    Messages
    2 738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 2 738
    Par défaut
    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)");

  3. #3
    Rédacteur
    Avatar de blondelle
    Homme Profil pro
    Inscrit en
    Mars 2006
    Messages
    2 738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 2 738
    Par défaut
    La je suis a cour d'idee une sujestion?
    Je suis preneur!

  4. #4
    Membre éclairé Avatar de BOUBOU81
    Profil pro
    system integrator
    Inscrit en
    Juin 2004
    Messages
    358
    Détails du profil
    Informations personnelles :
    Localisation : Allemagne

    Informations professionnelles :
    Activité : system integrator

    Informations forums :
    Inscription : Juin 2004
    Messages : 358
    Par défaut
    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?

  5. #5
    Membre émérite
    Avatar de bandit boy
    Profil pro
    Inscrit en
    Février 2006
    Messages
    916
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 916
    Par défaut
    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.

  6. #6
    Rédacteur
    Avatar de blondelle
    Homme Profil pro
    Inscrit en
    Mars 2006
    Messages
    2 738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 2 738
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Problemes de securite d'une macro
    Par Henricoo dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 05/07/2007, 12h15
  2. probleme apres installation d'une application
    Par didami dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 27/06/2007, 15h18
  3. [VBA-E]Probleme de lancement d'une macro non souhaité
    Par Mut dans le forum Macros et VBA Excel
    Réponses: 19
    Dernier message: 06/12/2006, 12h50
  4. Problème d'installation d'une carte réseau
    Par Yakurena dans le forum Mandriva / Mageia
    Réponses: 1
    Dernier message: 06/09/2006, 10h18
  5. Problème d'installation d'une clé USB
    Par Yakurena dans le forum Matériel
    Réponses: 3
    Dernier message: 10/08/2006, 11h28

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo