Attribute VB_Name = "Corrections" Sub Highlight() Attribute Highlight.VB_Description = "Applique un surlignage coloré à la sélection" Attribute Highlight.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Highlight" ' ' Highlight Macro ' Applique un surlignage coloré à la sélection ' WordBasic.Highlight End Sub Sub HighlightYellow() Attribute HighlightYellow.VB_Description = "Surlignage jaune" Attribute HighlightYellow.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.HighlightY" ' ' HighlightYellow Macro ' Surlignage jaune ' Options.DefaultHighlightColorIndex = wdYellow Selection.Range.HighlightColorIndex = wdYellow End Sub Sub HighlightPink() Attribute HighlightPink.VB_Description = "Surlignage rose" Attribute HighlightPink.VB_ProcData.VB_Invoke_Func = "Normal.Corrections.HighlightPink" ' ' HighlightPink Macro ' Surlignage rose ' Options.DefaultHighlightColorIndex = wdPink Selection.Range.HighlightColorIndex = wdPink End Sub Sub HighlightGreen() Attribute HighlightGreen.VB_Description = "Surlignage vert" Attribute HighlightGreen.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.HighlightGreen" ' ' HighlightGreen Macro ' Surlignage vert ' Options.DefaultHighlightColorIndex = wdBrightGreen Selection.Range.HighlightColorIndex = wdBrightGreen End Sub Sub HighlightBlue() Attribute HighlightBlue.VB_Description = "Surlignage bleu" Attribute HighlightBlue.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.HighlightBlue" ' ' HighlightBlue Macro ' Surlignage bleu ' Options.DefaultHighlightColorIndex = wdTurquoise Selection.Range.HighlightColorIndex = wdTurquoise End Sub