Sub SSM()
Dim oCC As ContentControl
Dim oPar As Paragraph
Dim oRng As Range
Dim lngIndex As Long
  Set oCC = ActiveDocument.SelectContentControlsByTitle("ccTitle").Item(1)
  MsgBox oCC.Range.Paragraphs.Count
  'Select the empty paragraph that appears to be in the CC.  Is it really there?
  MsgBox Selection.InRange(oCC.Range)
  'No.  Try to delete it.
  Selection.Range.Delete
  'You can't. Why?
  'Show the tags. Notice the selection shift
  oCC.Appearance = wdContentControlTags
  'It is smoke and mirrors.  The empty paragraph is the placeholder for the XML tags
  For lngIndex = ActiveDocument.Paragraphs.Count To 1 Step -1
    If Selection.Range.InRange(ActiveDocument.Paragraphs(lngIndex).Range) Then
      ActiveDocument.Paragraphs(lngIndex).Range.Delete
    End If
  Next
lbl_Exit:
  Exit Sub
End Sub