'Macros de surlignement

Sub ZSurlignementJaune()
    Selection.range.HighlightColorIndex = wdYellow
End Sub
Sub ZSurlignementVert()
    Selection.range.HighlightColorIndex = wdBrightGreen
End Sub
Sub ZSurlignementTurquoise()
    Selection.range.HighlightColorIndex = wdTurquoise
End Sub
Sub ZSurlignementRouge()
    Selection.range.HighlightColorIndex = wdRed
End Sub
Sub ZSurlignementRose()
    Selection.range.HighlightColorIndex = wdPink
End Sub
Sub ZEnleverSurlignement()
    Selection.range.HighlightColorIndex = wdNoHighlight
End Sub

'Macro qui écrit «Manque de clarté» dans une bulle de commentaire en marge du texte

Sub ZClarte()
    Selection.Comments.Add range:=Selection.range
    Selection.TypeText Text:="Manque de clarté; révisez svp."
    ActiveWindow.ActivePane.Close
End Sub

'Macro qui raye le texte sélectionné et le met en bleu
Sub ZBarrerRouge()
    Selection.Font.Color = RGB(255, 0, 0)
    Selection.Font.StrikeThrough = True
End Sub

'Macro qui raye le texte sélectionné et le met en rouge
Sub ZBarrerBleu()
    Selection.Font.Color = RGB(0, 0, 255)
    Selection.Font.StrikeThrough = True
End Sub