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

VBA Word Discussion :

Lister les signets d'un document word [Toutes versions]


Sujet :

VBA Word

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Novembre 2004
    Messages
    86
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2004
    Messages : 86
    Par défaut Lister les signets d'un document word
    bonsoir

    Y-a-t-il un moyen de lister les signets placés sur un document word en vba (ou pas, d'ailleurs)?

    Merci d'avance pour d'éventuelles réponses.

    Sellig

  2. #2
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Bonjour,

    Citation Envoyé par sellig60 Voir le message
    bonsoir

    Y-a-t-il un moyen de lister les signets placés sur un document word en vba (ou pas, d'ailleurs)?


    Sellig
    Oui

    Commence avec cet exemple pris dans l'aide. Avec un clic sur Bookmarks, la touche F1 et l'intellisence, tu devrais t'en sortir

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    If ActiveDocument.Bookmarks.Count >= 1 Then
        ReDim aMarks(ActiveDocument.Bookmarks.Count - 1)
        i = 0
        For Each aBookmark In ActiveDocument.Bookmarks
            aMarks(i) = aBookmark.Name
            i = i + 1
        Next aBookmark
    End If

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Novembre 2004
    Messages
    86
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2004
    Messages : 86
    Par défaut
    Citation Envoyé par clementmarcotte Voir le message
    Bonjour,



    Oui

    Commence avec cet exemple pris dans l'aide. Avec un clic sur Bookmarks, la touche F1 et l'intellisence, tu devrais t'en sortir

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    If ActiveDocument.Bookmarks.Count >= 1 Then
        ReDim aMarks(ActiveDocument.Bookmarks.Count - 1)
        i = 0
        For Each aBookmark In ActiveDocument.Bookmarks
            aMarks(i) = aBookmark.Name
            i = i + 1
        Next aBookmark
    End If
    Pile-poil !!!
    Merci

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

Discussions similaires

  1. Réponses: 4
    Dernier message: 15/12/2009, 17h15
  2. [Ex XP] je veux ouvrir et injecter dans les signets d'un modèle Word
    Par viavba dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 19/02/2009, 16h01
  3. Réponses: 1
    Dernier message: 07/05/2008, 11h31
  4. Une autre façon de compter les pages d'un document word
    Par ouskel'n'or dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 27/05/2007, 12h53

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