Range.ParentContentControl (Word)

Devuelve un objeto ContentControl que representa el control de contenido primario del intervalo especificado.

Esta propiedad devuelve Nothing si no hay ningún control de contenido primario para el rango especificado.

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