Selection.Comments (Word)

Returns a Comments collection that represents all the comments in the specified.

For information about returning a single member of a collection, see Returning an object from a collection.

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