Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oCC As ContentControl
Dim oCCNew As ContentControl
Dim oRng As Word.Range
Dim strText As String
For Each oCC In ActiveDocument.ContentControls
  If oCC.Type = wdContentControlBuildingBlockGallery Then
    Set oRng = oCC.Range
    strText = oCC.Title
    oCC.Delete
    Set oCCNew = ActiveDocument.ContentControls.Add(wdContentControlRichText, oRng)
    oCCNew.Title = strText
  End If
Next oCC
End Sub