Selection.Comments (Word)

Gibt eine comments -Auflistung zurück, die alle Kommentare in der angegebenen darstellt.

Informationen zum Zurückgeben eines einzelnen Elements einer Auflistung finden Sie unter zurückgeben eines Objekts aus einer Auflistung.

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