Range.ParentContentControl (Word)

Retorna um objeto ContentControl que representa o controle de conteúdo pai do intervalo especificado. Somente leitura.

Essa propriedade retornará Nothing se não houver controle de conteúdo pai para o intervalo especificado.

Dim cclParentContentControl As ContentControl
Set cclParentContentControl = ActiveDocument.Range.ParentContentControl