Range.ParentContentControl (Word)

Returns a ContentControl object that represents the parent content control for the specified range.

This property returns Nothing if there is no parent content control for the specified range.

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