You can change the selection to the full CC by using
Code:
Selection.Range.ParentContentControl.Range.Select
If you want the actual CC instead of the text in it you could use
Code:
Dim aCC As ContentControl
Set aCC = Selection.Range.ParentContentControl
aCC.Title = "Found It"
Disclaimer: I didn't know the answer either so I had to search for this and found the relevant clue on this post by user11818836 on
c# - How to set ContentControl.Range to the current ContentControl I am working from? - Stack Overflow