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

  1. #1
    Membre régulier
    Inscrit en
    novembre 2005
    Messages
    319
    Détails du profil
    Informations forums :
    Inscription : novembre 2005
    Messages : 319
    Points : 116
    Points
    116
    Par défaut Récupérer la valeur dans un signet de Microsoft Word
    Bonjour,
    J'ai un document word qui contient un signet nommé "TitreDoc". J'échoue à récupérer la valeur contenue dans un signet, c'est-à-dire le texte écrit à l'emplacement de ce signet

    Le code de connexion à Ms Word:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Dim wrdApp As Microsoft.Office.Interop.Word.Application
            Dim wrdDoc As Microsoft.Office.Interop.Word.Document
     
            wrdApp = New Microsoft.Office.Interop.Word.Application
            wrdDoc = wrdApp.Documents.Open(CheminDuDocumentWord)
    Le code de récupération:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Dim M As String = wrdDoc.Bookmarks("TitreDoc").Range.Text
    ou encore

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Dim M As String = wrdDoc.Bookmarks(wrdDoc.Bookmarks("TitreDoc").Name).Range.Text
    la variable "M" ramène la valeur "Nothing"

    Je vous prie de me mettre sur la voie

  2. #2
    Membre régulier
    Inscrit en
    novembre 2005
    Messages
    319
    Détails du profil
    Informations forums :
    Inscription : novembre 2005
    Messages : 319
    Points : 116
    Points
    116
    Par défaut
    Je lis depuis qu'il est plus facile d'écrire dans les signets que de lire et récupérer ce qui y est écrit.

  3. #3
    Membre émérite Avatar de Phil Rob
    Homme Profil pro
    Enseignant retraité
    Inscrit en
    novembre 2013
    Messages
    1 289
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Enseignant retraité

    Informations forums :
    Inscription : novembre 2013
    Messages : 1 289
    Points : 2 294
    Points
    2 294
    Par défaut
    Bonjour,

    Tu accèdes à la propriété TEXT d'un signet, en lecture ou en écriture, de cette manière :

    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
     
    ' Les déclarations pour cet exemple :
            Dim WAPP As New Microsoft.Office.Interop.Word.Application
            Dim UnDoc As New Microsoft.Office.Interop.Word.Document
     
     
    ' Ouvrir le DOC :
           UnDoc = WAPP.Documents.Open(... chemin et nom complet du DOC ...)
           WAPP.Visible = True
     
    ' Un Signet est designé par son nom 
    ' ... et nous pouvant lui affecter une valeur :
            UnDoc.Bookmarks("LeNomDuSignet").Range.Text = "Le signet n'est pas fait pour ça, meilleurs sont les champs de fusion et les tables"
     
    ' ... ou lire sa valeur :
            UnTextBox.Text = UnDoc.Bookmarks("LeNomDuSignet").Range.Text
    J'espère que ceci t'aidera.

    Bonne journée ...

  4. #4
    Membre régulier
    Inscrit en
    novembre 2005
    Messages
    319
    Détails du profil
    Informations forums :
    Inscription : novembre 2005
    Messages : 319
    Points : 116
    Points
    116
    Par défaut
    Merci Phil Rob
    Il y avait quelques petits aménagements à faire. ça marche convenablement

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

Discussions similaires

  1. Récupérer une valeur dans une JList
    Par Noosymer dans le forum Composants
    Réponses: 6
    Dernier message: 17/06/2010, 23h53
  2. Récupérer des valeurs dans des fichiers html
    Par nico93100 dans le forum Langage
    Réponses: 1
    Dernier message: 05/01/2006, 21h46
  3. récupérer une valeur dans un selected
    Par lacfab dans le forum Langage
    Réponses: 6
    Dernier message: 14/12/2005, 09h48
  4. Réponses: 5
    Dernier message: 09/09/2005, 17h51
  5. problème pour récupérer une valeur dans ma bd (débutante)
    Par auryn111 dans le forum Langage SQL
    Réponses: 1
    Dernier message: 26/08/2005, 17h49

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