Comment.Ancestor (Word)

Para comentários que são respostas a comentários existentes, retorna o objeto comment pai; para comentários novos de nível superior, retorna Nothing. Somente leitura.

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