Re : Macro sous Word
J'avance j'avance,
à partir de ta macro
Sub MacroONM()
'----------------- O. ONM
Selection.HomeKey unit:=wdStory
With Selection.Find
.Text = "^013(O[. ]{1;2}ONM[.,]*^013)"
'A[. ]{1;2}N[.:]*^013)
.Replacement.Text = "^p<ONM>\1"
.MatchWildcards = True
.Replacement.Font.Color = wdColorBlue
.Execute Replace:=wdReplaceAll
End With
End Sub
j'ai écrit ceci :
Sub MacroONM2()
'----------------- ONM
Selection.HomeKey unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "^013(ONM*^013)"
.Replacement.Text = "^p<ONM>\1"
.MatchWildcards = True 'utiliser les caractères génériques
.Replacement.Font.Color = wdColorBlue
.Execute Replace:=wdReplaceAll
End With
End Sub
Sub MacroONM3()
'----------------- GO.ONM
Selection.HomeKey unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
'.Text = "^013([GO O . ]{1;3}ONM[.,]*^013)"
.Text = "^013(GO[. ]{1;2}ONM[.,]*^013)"
.Replacement.Text = "^p<ONM>\1"
.MatchWildcards = True 'utiliser les caractères génériques
.Replacement.Font.Color = wdColorBlue
.Execute Replace:=wdReplaceAll
End With
End Sub
C'est p'têt pas optimisé, mais ça maaaarche, pour l'instant c'est l'essentiel (mon mari!)
We shall overcome someday
I will survive
(je devrais mettre ces 2 phrases dans ma signature).
Bizzzz
C@thy