Comment.Ancestor (Word)

Pour les commentaires qui sont des réponses à des commentaires existants, renvoie l’objet de Commentaire parent; pour les nouveaux commentaires (de niveau supérieur), renvoie la valeur Nothing.

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