Macro Word : Initiale en majuscule [Résolu]

[_Sophie_]

Bonsoir,

Je voudrais réaliser une macro dans Word qui me permette de mettre en majuscule dans un texte l'initiale de chaque mot suivant la séquence de caractères .-

Dialogues du type :

Mme Martin.- Bonjour, nous sommes heureux de vous accueillir dans cette salle.
M. Dupont.- La séance est ouverte.

Dans le texte d'origine, j'ai "bonjour" et "la", et j'en ai 80 pages...

Je ne sais pas programmer les macros et j'utilise d'habitude l'enregistrement (ou le bricolage, honte à moi) pour les créer, mais là je ne sais pas comment dire à Word de balayer tout mon texte et de s'arrêter à la fin... Je ne parviens à faire la modif que pour une occurrence, en utilisant la recherche sur la séquence, puis en fermant la fenêtre, en avançant jusqu'au mot suivant et en faisant majuscule + F3.

Voilà, j'espère que je suis claire et que je ne me suis pas trompée de forum... Merci de m'aider, ou éventuellement de m'orienter au bon endroit !

Sophie

[Heureux-oli]

Bonjour et bienvenue sur les Forums Office de DVP.

Tu ne t'es point trompée de forum.

On va faire quelques essais avant.

J'explique le principe, on va rechercher le .- prendre le mot qui suit et utiliser une conversion pour avoir le première lettre en majuscule.

Essaie cette macro pour voir !

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub PremierLtMaj()
Dim para As Paragraph
 
For Each para In ActiveDocument.Paragraphs
    para.Range.Select
    With Selection.Find
        .Forward = True
        .Execute FindText:=".-"
    End With
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=True
    Selection.Range.Text = StrConv(Selection.Range.Text, vbProperCase)
 
Next para
 
 
End Sub

[_Sophie_]

Merci beaucoup ! Ça marche plutôt bien. Pour info, j'ai juste planté à un passage où il n'y a exceptionnellement qu'une marque de paragraphe derrière la séquence .- Le passage se présente comme ça :

M. Dupont.-
DÉCLARATION

J'ai dû arrêter Word un peu brutalement parce que je n'avais plus la main, mais en modifiant la séquence, ça fonctionne bien.

[Heureux-oli]

Un petit

[_Sophie_]

Je progresse d'heure en heure, j'ai trouvé comment on mettait résolu :-)

Mille mercis pour ton aide, tu m'as épargné environ 516244 maj F3, c'est inestimable !