Bonjour

je cherche à imposer un style à tous les caractères en gras, pour cela j'utilise le code suivant :

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
21
22
23
24
25
26
27
28
29
30
31
 
    Selection.Find.ClearFormatting
    Selection.Find.Font.Bold = True
    Selection.Find.Font.Italic = False
    Selection.Find.Font.SmallCaps = False   
 
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Bold = True
    Selection.Find.Replacement.Font.Italic = False
    Selection.Find.Replacement.Font.SmallCaps = False
 
    Selection.Find.Replacement.style = "GrasPerso"
 
 
    With Selection.Find
 
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Format = True
        .MatchCase = True
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
mais j'aimerais que les changements qui ont lieu dans le texte soient visible avec le Track Formatting ce qui n'est actuellement pas le cas. Est-ce que quelqu'un pourrait m'aider?