Bonjour à tous,
 
je débute, besoin de quelques lignes de codes, un peu d'aide me serait précieuse
 
Dans Word vba, Une fois lancé une macro Rechercher-Remplacer, le texte se trouve modifié.  
Comment obtenir le surlignage des zones modifiées ?
 
Par exemple sur le texte   "...malades   ? Les soignants'..." la macro supprime des espaces inutiles
Une fois la moulinette passée, j'aimerais voir qqchz de ce genre
 
...Malades? Les soignants...   ou le 'gras souligné' serait plutôt simplement 'surligné'
 
J'imagine un truc comme :
 
Rechercher::
Elargir la recherche à 5 caractères quelconques avant et après le critère
Remplacer :
surligner les 5 caractères avant et après la zone modifiée  
____________
 
exemple
 
Sub G_Espace_Insecable_et_Ponctuation()
'Macro qui gère la ponctuation (espaces insecable, espace avant le :, le ?, le !, etc.)
Clear_ChercherRemplacer
On Error GoTo Fin
Selection.HomeKey Unit:=wdStory
'Espace insécable dans les format de nombre de 1 000 et plus
With Selection.Find
.Text = "(<[0-9]{2}) ([0-9]{3})"
.Replacement.Text = "\1^s\2"
.Forward = True
.MatchWildcards = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
etc.

concernnt la couleur de police appliquée à un résultat de d=recherche, je ne trouve quasi rien. En français, un qui dit qu'on peut le faire. mais peut il le faire ? Oui ! oui, il peut le faire.
 
En ressources, je ne vois pas de FontColor dans les ressources Microsoft
 
https://docs.microsoft.com/en-us/of [...] fectFormat

il faudrait placer ceci en remplacement,  
 
    Options.DefaultHighlightColorIndex = wdYellow
    Selection.Range.HighlightColorIndex = wdYellow