Discussion :

[Sintm]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

[Contient le code pour les astérisques]

La seconde partie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[droggo]

Bonjour,

[B]
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.

En faisant le test toi-même, tu aurais déjà la réponse

[Sintm]

Rebonjour,

En effet, ca marche bien.
J'avais peur que certaines majuscules ne soient pas prises en compte vu le nombre de possibilités (comme č dz ǟ ш). Mais tout fonctionne parfaitement.

Merci.