Sub Demo()
Dim i As Long, ArrNames, CCtrl As ContentControl
ArrNames = Array("A", "B", "C")
With ActiveDocument
  For i = 0 To UBound(ArrNames)
    On Error Resume Next
    Set CCtrl = .SelectContentControlsByTitle(ArrNames(i))(1)
    On Error GoTo 0
    If CCtrl Is Nothing Then
      .Range.InsertAfter " "
      Set CCtrl = .ContentControls.Add(wdContentControlText, .Range.Characters.Last)
      CCtrl.Title = ArrNames(i)
    End If
    Set CCtrl = Nothing
  Next
End With
End Sub