Sub ZYellowHighlight()
    Selection.range.HighlightColorIndex = wdYellow
End Sub
Sub ZBrightGreenHighlight()
    Selection.range.HighlightColorIndex = wdBrightGreen
End Sub
Sub ZTurquoiseHighlight()
    Selection.range.HighlightColorIndex = wdTurquoise
End Sub
Sub ZRedHighlight()
    Selection.range.HighlightColorIndex = wdRed
End Sub
Sub ZPinkHighlight()
    Selection.range.HighlightColorIndex = wdPink
End Sub
Sub ZRemoveHighlight()
    Selection.range.HighlightColorIndex = wdNoHighlight
End Sub
Sub ZUnclear()
'
' ZUnclear Macro
'
'
    Selection.Comments.Add range:=Selection.range
    Selection.TypeText Text:="Unclear, please revise."
    ActiveWindow.ActivePane.Close
End Sub
Sub ZFragment()
'
' ZSentence Fragment Macro
'
'
    Selection.Comments.Add range:=Selection.range
    Selection.TypeText Text:="Sentence fragment, make sure your sentence contains a subject and a verb."
    ActiveWindow.ActivePane.Close
End Sub
Sub ZWordMissing()
'
' ZWordMissing Macro
'
'
    Selection.Comments.Add range:=Selection.range
    Selection.TypeText Text:="Word missing."
    ActiveWindow.ActivePane.Close
End Sub
Sub ZWordOrder()
'
' ZWordOrder Macro
'
'
    Selection.Comments.Add range:=Selection.range
    Selection.TypeText Text:="Word order."
    ActiveWindow.ActivePane.Close
End Sub
Sub ZNewSentence()
'
' ZNewSentence Macro
'
'
    Selection.Comments.Add range:=Selection.range
    Selection.TypeText Text:="New sentence."
    ActiveWindow.ActivePane.Close
End Sub
Sub ZNewParagraph()
'
' ZNewParagraph Macro
'
'
    Selection.Comments.Add range:=Selection.range
    Selection.TypeText Text:="New paragraph."
    ActiveWindow.ActivePane.Close
End Sub
Sub ZExtraWord()
'
'
' ZExtraWord Macro
'
'
    Selection.Font.Color = RGB(255, 0, 0)
    Selection.Font.StrikeThrough = True
End Sub
Sub ZWordy()
'
'
' ZWordy Macro
'
'
    Selection.Font.Color = RGB(0, 0, 255)
    Selection.Font.StrikeThrough = True
End Sub