Astérique devant des majuscules
Bonsoir à tous!
Pour mes recherches en linguistique, je dois préparer des fichiers word ou .txt qui ne contiennent aucune majuscule. Avec la partie de code (qui serait la seconde partie de la macro) ci-dessous j'arrive déjà à passer le texte en minuscule. J'aimerais trouver une solution qui permette d'ajouter un astérisque (*) devant la première lettre de chaque mot en majuscule (qu'il commence soit avec la première lettre soit entièrement en majuscule).
Par exemple:
"Le Chien GRIS" donnera "*le *chien *gris".
La première partie:
Code:
[Contient le code pour les astérisques]
La seconde partie:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub Macro2()
'
' Macro2 Macro
'
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "<[A-Z]*>"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Range.Case = wdLowerCaseAll
End Sub |
Pouvez-vous m'aider pour le début du code, s'il vous plaît?
Et pouvez-vous m'indiquer également si .Text = "<[A-Z]*>" inclut la recherche des majuscules "Â, Ê, Î, Ô, Û, Ä, Ë, Ï, Ö, Ü, À, Æ Ç, É, È, Œ, Ù, Ñ", c'est-à-dire les majuscules accentuées.
Merci d'avance pour votre aide, bonne soirée !