Word Macro Recherche-Remplace : surligner les modifications effectuées

Word Macro Recherche-Remplace : surligner les modifications effectuées - Logiciels - Windows & Software

Marsh Posté le 24-03-2020 à 09:19:19    

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.


Message édité par jeromef3 le 24-03-2020 à 11:46:17
Reply

Marsh Posté le 24-03-2020 à 09:19:19   

Reply

Marsh Posté le 24-03-2020 à 20:30:26    

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

Reply

Marsh Posté le 25-03-2020 à 08:16:11    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed