1. #1
    Futur Membre du Club
    Femme Profil pro
    Étudiant
    Inscrit en
    avril 2017
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : avril 2017
    Messages : 6
    Points : 7
    Points
    7

    Par défaut Macro sélection de mots

    Bonjour à tous !

    Je souhaite me repérer dans mon fichier grâce à des mots qui sont entre crochet comme ceci: [blabla] Ces mots ne sont pas de longueur fixe.
    J'aimerais sélectionner la partie entre crochet, faire des trucs, puis basculer sur le prochains mot entre crochet.
    J'ai actuellement ce 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
    Selection.Collapse Direction:=wdCollapseEnd
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "["                 'texte du début
        .Forward = True             'vers le bas
        .Wrap = wdFindContinue      'revient au début doc si fin doc
        .MatchWholeWord = False     'pas mot entier
    End With
    Selection.Find.Execute
    Selection.Extend   ' déplacement avec extension
     
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "]"                 'texte de fin
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
    End With
    Selection.Find.Execute
    Avec ce code il me sélectionne le premier mot entre crochet et c'est tout. Je n'arrive pas à quitter la sélection pour faire d'autres manipulations et je n'arrive pas à sélectionner les autres mots entre crochets. Il me sélectionne toujours le premier ^^'

    Merci pour votre aide !

  2. #2
    Membre confirmé Avatar de Souriane
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    septembre 2009
    Messages
    363
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Service public

    Informations forums :
    Inscription : septembre 2009
    Messages : 363
    Points : 483
    Points
    483

    Par défaut

    Bonjour,

    Je ne sais pas si ceci pourrait t'aider :

    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
    Sub Rechercher()
    '
     
    '
        selection.Find.ClearFormatting
        selection.Find.Replacement.ClearFormatting
     
        'Ici, la commande pour dire de mettre en gras ce qui sera sélectionné entre crochet.
        selection.Find.Replacement.Font.Bold = True
        With selection.Find
            .Text = "(\[)(*)(\])"
            .Replacement.Text = "\1\2\3"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
        End With
        selection.Find.Execute Replace:=wdReplaceAll
    End Sub
    __________________________________
    Une question bien posée est à moitié résolue!

    Merci de ne pas oublier de mettre RÉSOLU quand le sujet l'est. Cela aide tous les DVPnautes dans leur recherche

Discussions similaires

  1. Sélection de mots
    Par jeromin dans le forum Débuter
    Réponses: 2
    Dernier message: 25/03/2011, 11h20
  2. Sélection de mots dans une macro variable
    Par delph_le dans le forum Macro
    Réponses: 2
    Dernier message: 02/08/2010, 09h25
  3. Macro sélection aléatoire de lignes
    Par Pascalou2008 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 12/03/2008, 23h54
  4. [Delphi7] Sélection des mots dans Word
    Par Tcheby dans le forum Composants VCL
    Réponses: 0
    Dernier message: 07/11/2007, 12h33
  5. Macro pour remplacer mot anglais par mot francais,..
    Par midiweb dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 25/07/2007, 10h43

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