Comment.Ancestor (Word)

Für Kommentare, die Antworten auf vorhandene Kommentare sind, wird das übergeordnete comment -Objekt zurückgegeben. gibt bei neuen Kommentaren auf oberster Ebene Nothingzurück.

Dim cmmAncestor As Comment
Set cmmAncestor = Selection.Comments(1).Ancestor