Word : Rechercher/remplacer groupe de chiffres suivi d'une majuscule

Résolu
rives0525 Messages postés 17 Date d'inscription   Statut Membre Dernière intervention   -  
m@rina Messages postés 23882 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

4 réponses

Réponse 1 / 4
m@rina Messages postés 23882 Date d'inscription   Statut Contributeur Dernière intervention   11 464
 
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
0
Réponse 2 / 4
rives0525 Messages postés 17 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup Marina,. Ca coince juste sur Execute.
J'essaie d'arranger ça.
Très cordialement.
S. Rivière
0
Réponse 3 / 4
rives0525 Messages postés 17 Date d'inscription   Statut Membre Dernière intervention  
 
Super, ça fonctionne parfaitement.
Merci encore pour cette macro.
Très cordialement.
S. Rivière
0
Réponse 4 / 4
m@rina Messages postés 23882 Date d'inscription   Statut Contributeur Dernière intervention   11 464
 
Merci pour le retour.
J'en ai fait un article ici (avec diverses autres options)
https://faqword.com/index.php/word/outils-edition/1126

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