Création "Bookmarks" dans WORD avec Borland C++

Version imprimable

Bonjour, je dépose ce poste car je suis dans une impasse et malgré toutes mes recherches je n’ai pas trouvé de solution.
Je voudrais créer via Borland un « Bookmark » (signet) dans un document Word.
Voici le bout de code utilisé.
Code:

1 2 3 4 5 6 vDoc.OlePropertyGet("Bookmarks").OleFunction("Add", strPage1.c_str(), vWordApp.OlePropertyGet("Selection").OlePropertyGet("Range") ); vDoc.OlePropertyGet("Bookmarks").OlePropertySet("DefaultSorting", 0); vDoc.OlePropertyGet("Bookmarks").OlePropertySet("ShowHidden", false);
Dès que l’appel à la création se fait, un message d’erreur « …. Class EOlesyserror with message « Exception occured ».
D’où ma question est-il possible de créer un « Bookmark » par programmation Ole ? Si oui où est mon erreur?

Merci à vous.

Salut diouki
C'est possible comme ceci

Code:

1
2
3
4
5
6
7
 
        String strPage1("aaa");
 
        vDoc.OlePropertyGet("Bookmarks").OleFunction("Add",
                strPage1.c_str(),
                vWordApp.OlePropertyGet("Selection").OlePropertyGet("Range")
                );

28/06/2010, 07h59
diouki

Bonjour Blondelle,

Le bout de code que tu me donnes resemble étranchement à celui que j'ai posté et qui me pose problème. Je ne comprends pas ?????????

Ton vDoc est bien une instance de "Documents" ?

Bàt.

J'avais une erreur Ole et elle venait de la facon d'ecrire la chaine de caractere "strPage1", voici le bout de code de teste qui m'a servi en utilisant ton bout de code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
   Variant vWordApp, vDoc;
    try
    {
        vWordApp = Variant::CreateObject("Word.Application");
    }
    catch(...)
    {
        MessageBox(Handle, "Word!",
                Application->Title.c_str(), MB_OK | MB_ICONERROR);
        vWordApp = Unassigned;
        return;
    }
        // Word
        vWordApp.OlePropertySet("Visible", true);
        // 
        vDoc = vWordApp.OlePropertyGet("Documents").OleFunction("Add");
        String strPage1("aaa"), strPage2("bbb"), strPage3("ccc");
        vDoc.OlePropertyGet("Bookmarks").OleFunction("Add",
                strPage1.c_str(),
                vWordApp.OlePropertyGet("Selection").OlePropertyGet("Range")
                );

29/06/2010, 11h08
diouki

Salut blondelle, désolé toujours la même erreur.

Je travaille sous MS office professional Word 2003 SP3
XP professional
C++builder5 professional
29/06/2010, 18h23
blondelle

Je pense que tu a bien " #include <utilcls.h> // ne pas oublier " dans ton entete, il y faut aussi dans certaines version de BCB ajouter " #include <ComObj.hpp> // a ajouter dans certains cas "
29/06/2010, 18h38
diouki

Ajouté les deux includes, toujours même problème. C'est la seule commande OLE que je n'arrive pas à réaliser. Bizarre. Je vais chercher une autre solution à mon problème. Merci de ton aide et à bientôt.
29/06/2010, 20h06
blondelle

A tu teste le code tel que je l'ai poste dans mon second post, a tout hasard
30/06/2010, 12h14
diouki

Bonjour blondelle, j'ai testé ton code tel que tu l'as donné (copie, collé), introduit dans un nouveau projet mais rien à faire, toujours la même erreur.Egalement sur un autre Pc, toujour même erreur. A ne rien comprendre.
02/07/2010, 19h53
blondelle

Je viens d'essayer avec Word 2003 C++ builder6 Windows XP Pack2 pas d'erreur, c'est vraiement bizarre
05/07/2010, 19h52
diouki

C'est à s'arracher les cheveux (il m'en reste quelques uns), Je viens de contrôler dans le fichier "Work_2K.h" et la syntaxe utilisée est correcte

Code:

Word_2k::BookmarkPtr __fastcall Add(BSTR Name/*[in]*/, TVariant* Range/*[in,opt]*/= TNoParam());

.
Pourquoi cela ne fonctionne pas ?????? MYSTERE

Si je passe le nom du bootmark comme ceci cela fonctionne aussi

Code:

1
2
3
4
5
 
        vDoc.OlePropertyGet("Bookmarks").OleFunction("Add",
                "aaa",
                vWordApp.OlePropertyGet("Selection").OlePropertyGet("Range")
                );

05/07/2010, 20h53
blondelle

Ton dernier poste ma donne une idee, j'ai depose les composants Word lance la compilation et verifie les includes ajoutes par ces composants c'est

Citation:

#include <OleServer.hpp>

Bonjour Blondelle, je n'ai pas oublié la discussion mais bon il y a eu les vacances ensuite la reprise donc pas beaucoup de temps. Pour résoudre mon problème d'impossibilité de création de Bookmarks, il semble que c'est lié à la version C++builder 5, j'ai contourné le problème en créant des hyperliens se rattachant à un texte et non à un signet. Pour l'instant çà me dépanne en attendant une version plus récente du C++Builder pour améliorer. Dans mon programme j’insère également des « comments » mais malheureusement une fois crée je ne sais plus changer le texte. J’arrive à les lister (voir code) mais je ne trouve pas de solution pour en modifier le texte. As-tu une solution ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 vComments = WD_Document.OlePropertyGet("Comments"); iCount = vComments.OlePropertyGet("Count"); for (int i = 1; i <= iCount; i++) { vComment = vComments.OleFunction("Item", i); aComment = vComment.OlePropertyGet("Range"); //Donne le contenu du "Comment" Ce que j'aimerais modifier qui = vComment.OlePropertyGet("Initial"); // Initiale du créateur du Comment. scopeComment = vComment.OlePropertyGet("Scope"); // Texte pris en début du Comment ListBox1->Items->Add(aComment); ListBox2->Items->Add(qui); ListBox3->Items->Add(scopeComment); }

21/09/2010, 16h16
diouki

Solution pour le changement texte trouvée:lol:

Code:

vComment.OlePropertyGet("Range").OlePropertySet("Text","hello");