Word : Rechercher/remplacer groupe de chiffres suivi d'une majuscule [Résolu]

Signaler
Messages postés
13
Date d'inscription
lundi 20 novembre 2017
Statut
Membre
Dernière intervention
23 août 2020
-
Messages postés
16760
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
23 novembre 2020
-
Bonjour,

Je souhaiterais faire la recherche dans un long texte des groupes de 3 chiffres suivis d'une lettre en majuscule (ex. : 545F) pour remplacer la majuscule par une minuscule.
Est-ce possible ? (avec les caractères génériques ? ou par une macro ?)
Je vous remercie.
Très cordialement
S. Riviere





Configuration: Windows / Firefox 76.0

4 réponses

Messages postés
16760
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
23 novembre 2020
9 958
Bonjour,

Si la majuscule était une marque de format (boite de dialogue Police), on pourrait faire un simple Recherche-Remplace. Mais, comme je me doute que ce n'est pas le cas, il faut une macro parce que, si on peut faire une recherche en choisissant la casse, on ne peut pas faire un remplacement avec une casse particulière (en dehors donc du format).

Voici une macro :

Sub remplacer()
Application.ScreenUpdating = False
Selection.HomeKey Unit:=wdStory
Do
With Selection.Find
.ClearFormatting
.Text = "^#^#^#^$"
.Forward = True
.Wrap = wdFindStop
.Execute
End With

If Selection.Find.Found Then
Selection.Range.Case = wdLowerCase
End If
Loop Until Not Selection.Find.Found
End Sub


m@rina
Messages postés
13
Date d'inscription
lundi 20 novembre 2017
Statut
Membre
Dernière intervention
23 août 2020

Merci beaucoup Marina,. Ca coince juste sur Execute.
J'essaie d'arranger ça.
Très cordialement.
S. Rivière
Messages postés
13
Date d'inscription
lundi 20 novembre 2017
Statut
Membre
Dernière intervention
23 août 2020

Super, ça fonctionne parfaitement.
Merci encore pour cette macro.
Très cordialement.
S. Rivière
Messages postés
16760
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
23 novembre 2020
9 958
Merci pour le retour.
J'en ai fait un article ici (avec diverses autres options)
http://faqword.com/index.php/word/outils-edition/1126

ça peut intéresser d'autres personnes.
m@rina