Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oCC As ContentControl
Dim arrTagParts() As String
Dim lngIndex As Long
Dim bDelete As Boolean
  
  For Each oCC In ActiveDocument.ContentControls
    bDelete = True
    If oCC.Type = 0 Then
      arrTagParts = Split(oCC.Tag, " ")
      For lngIndex = 0 To UBound(arrTagParts)
        If arrTagParts(lngIndex) = "Me" Then
          bDelete = False
          Exit For
        End If
      Next lngIndex
      If bDelete Then oCC.Delete True
   End If
 Next oCC
lbl_Exit:
  Exit Sub
  
End Sub