Discussion :

[Anonyme1209]

supprimmer

[Heureux-oli]

Salut,

Tout ça m'a l'air bien compliqué.

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
 
Sub RechercherMot()
'Déclaration de la variable à chercher
Dim myStr As String
'Affectation de la variable
myStr = Selection.Range.Text
'changement de la couleur d'index
Selection.Range.HighlightColorIndex = wdYellow
'Recherche et remplacement.
With Selection.Find
    .Text = myStr
    .Forward = True
    .Replacement.Font.Size = 15
    .Replacement.Highlight = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
 
End Sub

[Heureux-oli]

Salut,

Je viens d'essayer le code que tu as posté et il ne change pas la taille de la police.