[Word] Déplacer un exposant après 4 chiffres [Résolu/Fermé]

Messages postés
856
Date d'inscription
jeudi 21 janvier 2010
Statut
Membre
Dernière intervention
2 mai 2013
-
Bonjour,

Etant un peu en rade d'imagination, ce jour, je fais appel à ceux qui pourraient m'aider. Je dois, sur un grand nombre de références, déplacer un exposant se trouvant devant une date (²1985) derrière la date (1985²). Je voudrais enregistrer un code et l'incorporer à une macro plus conséquente, mais avant cela, je voudrais le tester.

J'ai fait un premier essai en modifiant l'exposant en chiffre et déplacé ce chiffre derrière la date en utilisant les caractères génériques :

Chercher : ([0-9])([0-9][0-9][0-9][0-9])
Remplacer par : \2\1

Maintenant, je cale : comment aller chercher ce cinquième chiffre et lui donner le format d'exposant ? ou comment le coder ?

J'ai déjà fait ça, mais c'est la dernière ligne, en gras, qui ne passe pas :

Selection.Find.ClearFormatting
With Selection.Find
.Text = "([0-9][0-9][0-9][0-9][0-9])"
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.Find.ClearFormatting
Dim sel As Selection
Set sel = ActiveDocument.Selection
sel.MoveRight unit:=wdCharacter, Count:=5
Selection.Characters.Superscript = True



S'il y a une autre idée pour faire plus vite et mieux en déplaçant d'un seul coup l'exposant derrière la date, je suis preneuse !

Merci d'avance pour ce grand coup de pouce.



Afficher la suite 

1 réponse

Messages postés
856
Date d'inscription
jeudi 21 janvier 2010
Statut
Membre
Dernière intervention
2 mai 2013
287
0
Merci
J'ai résolu mon problème tout simplement par :

Chercher : ([0-9])([0-9][0-9][0-9][0-9])
Remplacer par : \2\1
Caractères génériques

La même "formule" mais qui ne passait pas hier.