Discussion :

[Naruchiii]

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 !

[Souriane]

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

[night sky]

Je vous remercie.