Comment.Ancestor (Word)

Para comentarios que son respuestas a comentarios existentes, devuelve el objeto de Comentario primario; para los comentarios nuevos (de nivel superior), devuelve Nothing.

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