Bonjour
je cherche à imposer un style à tous les caractères en gras, pour cela j'utilise le code suivant :
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?
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
Partager