Recherche suite de nombre commençant par la même suite

Version imprimable

21/06/2022, 10h52
maword

Recherche suite de nombre commençant par la même suite

Bonjour,

Je cherche à trouver dans mon document word des références commençant par le même suite de nombres/caractères mais se finissant par une suite différente.

Par exemple:
XXXX.001
XXXX.002

Je voudrais une fois toutes les références trouvées les encadrer entre crochets.

C'est à dire:
[XXXX.001]
[XXXX.002]

J'ai trouvé comment rechercher dans le doc et remplacer mais je n'arrive pas à chercher toutes les références en même temps pour automatiser le travail puis à sélectionner la référence pour l'encadrer.

En bonus si quelqu'un a la réponse facilement, parfois les références sont concaténées (ex: XXXX.001/002/003). Est-ce qu'il y a un moyen que VBA reconnaisse cette suite pour séparer les différentes références et les mettre sous la forme [XXXX.001] [XXXX.002] [XXXX.003] ?

Merci d'avance pour votre aide.

Cordialement.

pas besoin de VBA

suffit de faire une recherche de l'occurrence et de faire un remplacer par

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
With ActiveDocument.Content.Find 
 .ClearFormatting 
 .Font.Bold = True 
 With .Replacement 
 .ClearFormatting 
 .Font.Bold = False 
 End With 
 .Execute FindText:="occurence", ReplaceWith:="XoccurenceX", _ 
 Format:=True, Replace:=wdReplaceAll 
End With
 
With ActiveDocument.Content.Find 
 .ClearFormatting 
 .Font.Bold = True 
 With .Replacement 
 .ClearFormatting 
 .Font.Bold = False 
 End With 
 .Execute FindText:="XoccurenceX", ReplaceWith:="[occurence]", _  'ou alors il faut chercher les 
 Format:=True, Replace:=wdReplaceAll 
End With

21/06/2022, 13h23
maword

Merci pour votre réponse.

Cependant, j'ai l'impression que cela ne répond pas exactement à ma demande.

Effectivement rechercher toutes les occurrences n'est pas compliqué avec le préfixe.

Par contre, je ne vois pas comment sélectionner le suffixe (qui est variable dans mon cas), une fois la référence trouvée pour ensuite l'encadrer.
21/06/2022, 15h13
hyperion13

@maword
Votre postulat est mal formulé alors ! :weird:
Car la proposition de mach1974 répond à votre postulat. L'avez-vous au moins testée ?
Pour aller plus vite et traiter d'une boucle toutes vos références, il faudrait utiliser la fct Array()
21/06/2022, 15h34
maword

Alors je reformule.

J'ai plusieurs références dans mon document qui commencent toutes par le même préfixe.

Il y a plusieurs (une centaine) références du type XXXX.YYYY avec XXXX. toujours constant.

Je cherche à prendre toutes ces références et les encadrer une par une entre crochets.

C'est à dire: [XXXX.0001] par exemple.

Je n'ai pas de difficulté à trouver les références en recherchant par le préfixe.

Là où je n'arrive pas, c'est dire à excel de sélectionner les quatre nombres après XXXX. et de les prendre en compte dans la mise entre crochets.

C'est à dire [XXXX.0001] [XXXX.0002] [XXXX.0003] etc.

Le but est donc qu'excel reconnaisse seul les références en entier à partir du préfixe et les mette entre parenthèses.

Ex:
Dans ce document
Cherche chaîne commençant par XXXX.
Sélectionne chaîne et remplace par "[chaîne]". (toute la chaîne ex: "XXXX.YYYY")
Jusqu'à qu'il n'y ait plus de chaîne

J'espère que c'est plus clair maintenant.

re,
Vous cherchez des valeurs dans un document dont le préfixe est alphabétique et le suffixe numérique, le tout séparé par un point
A tester.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim rngDoc As Word.Range
'==============================================================
' XXXX = [A-Z]{4} chaine string composée de 4 symboles de A à Z
' 1234 = [0-9]{4} chaine numeric composé de 4 symboles de 0 à 9
'==============================================================
Set rngDoc = ActiveDocument.Range
 
With rngDoc
    With .Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Format = False
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
        .Text = "[A-Z]{4}.[0-9]{4}"
        .Replacement.Text = "[^&]"
        .Execute Replace:=wdReplaceAll
    End With
End With

22/06/2022, 15h44
maword

Merci, j'y suis presque!

Votre code réussit à trouver toutes les références, cependant au lieu d'encadrer les références, il rajoute "[]" à la fin des références sans les supprimer.

J'essaye de trouver une solution pour résoudre le problème.

Je pensais créer une variable pour récupérer ce que la fonction rechercher trouve pour la mettre à la place de [^&] mais étant un peu novice j'ai dû mal à les déclarer et les appeler.

J'espère réussir avec le site d'aide d'office.

Encore merci.
22/06/2022, 16h12
hyperion13

1 pièce(s) jointe(s)

Euh ... :weird:

Citation:

Envoyé par maword

Votre code réussit à trouver toutes les références, cependant au lieu d'encadrer les références, il rajoute "[]" à la fin des références sans les supprimer.