ActiveDocument.ActiveWindow.View.ShowHiddenText = True Selection.Comments.Add Range:=Selection.Range, Text:="Approved"