Simple macro to paste highlighted text

[macropod]

Sub Comment()
Const Comment As String = "COMMENT - "
With Selection
  .Text = Comment
  .Words(1).HighlightColorIndex = wdBrightGreen
  .Collapse wdCollapseEnd
End With
End Sub