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 :

Suppression de signet avec des cactères commun


Sujet :

VBA Word

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Ingénieur Qualité
    Inscrit en
    Mai 2015
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Ingénieur Qualité
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Mai 2015
    Messages : 6
    Points : 5
    Points
    5
    Par défaut Suppression de signet avec des cactères commun
    Bonjour,

    je suis en train de coder une macro qui possède a peu près 200 signets et je souhaiterais savoir s'il est possible de les supprimer par paquets.

    actuellement je procède de la façon suivante mais cela m'oblige à créer du code pour les supprimer un à un
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
      selection.GoTo What:=wdGoToBookmark, Name:="DRCQHT"
            With ActiveDocument.Bookmarks
                .DefaultSorting = wdSortByName
                .ShowHidden = False
            End With
            selection.Delete Unit:=wdCharacter, Count:=1
    je souhaiterai supprimer les signets qui possèdent dans leur nom des caractères commun par exemple "CQ" ou qui commence par "CQ" ou finisse par "CQ" en une fonction et pas en autant de commande que j'ai de signet
    Boucles? caractères jokers? ....

    Une idée? ou une solution?

    Merci d'avance

  2. #2
    Rédacteur/Modérateur

    Avatar de Heureux-oli
    Homme Profil pro
    Contrôleur d'industrie
    Inscrit en
    Février 2006
    Messages
    21 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contrôleur d'industrie
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Février 2006
    Messages : 21 087
    Points : 42 926
    Points
    42 926
    Par défaut
    Salut,

    Une boucle sur les signets et une condition sur le nom.

    Une idée ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim oBM As BOokmark
    For Each oBM in Active document.Bookmarks
    If Left(oBM.Name,2)= "QC" Then oBM.Delete
    Next oBM
    J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
    Débutez en VBA

    Mes articles


    Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Ingénieur Qualité
    Inscrit en
    Mai 2015
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Ingénieur Qualité
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Mai 2015
    Messages : 6
    Points : 5
    Points
    5
    Par défaut
    Salut,

    Merci c'est génial ça marche et ça me fait gagner un temps monstrueux un grand merci!!
    vu le nombre de signets que j'ai a manipuler je ne m'en serai pas sorti


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    Dim Signet As Bookmark
    For Each Signet In ActiveDocument.Bookmarks
            If Left(Signet.Name, 2) = "CQ" Then
            Signet.Delete
            End If
    Next Signet
    c'était une solution

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

Discussions similaires

  1. Plusieurs bases indépendantes avec des données communes
    Par dg78 dans le forum Développement
    Réponses: 3
    Dernier message: 20/12/2010, 10h42
  2. [Bonne pratique] Faire une arboresence complexe avec des répertoires communs
    Par grabriel dans le forum Subversion
    Réponses: 2
    Dernier message: 08/12/2008, 15h15
  3. Réponses: 4
    Dernier message: 29/08/2007, 17h01
  4. Réponses: 17
    Dernier message: 13/11/2006, 12h55
  5. erreur LNK2019 avec des fonctions communes.
    Par FamiDoo dans le forum Visual C++
    Réponses: 9
    Dernier message: 31/07/2006, 11h32

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