Sub CheckContentControl()
 
    Dim ctnControl As ContentControl
    Dim isEmpty As Boolean
 
    Set ctnControl = ActiveDocument.ContentControls("Name")
 
    If ctnControl Is Nothing Then
        MsgBox "Content control 'Name' not found.", vbExclamation
        Exit Sub
    End If
 
    isEmpty = Len(ctnControl.Range.Text) = 0
 
    If isEmpty Then
        MsgBox "Content control 'Name' is empty.", vbInformation
    Else
        MsgBox "Content control 'Name' has data.", vbI
Nformation
    End If
 
End Sub

Sub CheckContentControl()
  Dim aCC As ContentControl, bEmpty As Boolean
  For Each aCC In ActiveDocument.SelectContentControlsByTitle("Name")
    bEmpty = aCC.ShowingPlaceholderText
    If bEmpty Then
      MsgBox "The Content Control is Empty"
    Else
      MsgBox "The Content Control has content"
    End If
  Next
End Sub

CheckContentControl(strName)

Sub CheckContentControl(strName)
   ' Andrew Lockton
  ' https://www.msofficeforums.com/word-vba/52145-macro-check-data-content-control-box.html
'

   Dim aCC As ContentControl, bEmpty As Boolean
  For Each aCC In ActiveDocument.SelectContentControlsByTitle(strName)
    bEmpty = aCC.ShowingPlaceholderText
    If bEmpty Then
      MsgBox "The Content Control " & strName & " is Empty"
    Else
      MsgBox "The Content Control  " & strName & " has content"
    End If
  Next
End Sub

Sub CheckAllContentControls()

  Dim aCC As ContentControl
  Dim ctrlTitle() As String  ' Array to store control titles

  ' Define the list of control titles
  ctrlTitle = Array("Name", "Position", "Store", "Date of Lateness", _
                   "Scheduled Time Lost", "Number of occurrences in 13 weeks", _
                   "Number of occurrences in 52 weeks", "Stage", "Details", _
                   "Is there any pattern", "Preventative measures", "Employee signature", _
                   "Employee signature date", "Employee name", "Managers signature", _
                   "Managers signature date", "Managers name")

  ' Loop through all control titles
  For i = 0 To UBound(ctrlTitle)
    ' Check each content control with the current title
    For Each aCC In ActiveDocument.SelectContentControlsByTitle(ctrlTitle(i))
      If aCC.ShowingPlaceholderText Then
        MsgBox "The Content Control '" & ctrlTitle(i) & "' is Empty"
      Else
        MsgBox "The Content Control '" & ctrlTitle(i) & "' has content"
      End If
    Next aCC
  Next i

End Sub

Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oCC As ContentControl
Dim oRng As Range
Dim strMsg As String
  For Each oCC In ActiveDocument.ContentControls
    If oCC.ShowingPlaceholderText Then
      If oRng Is Nothing Then
        Set oRng = oCC.Range
        oRng.Select
        strMsg = "One or more content controls is blank. Please enter data in the following CCs:" & vbCr & vbCr & oCC.Title & vbCr
      Else
        strMsg = strMsg & oCC.Title & vbCr
      End If
    End If
  Next oCC
  If strMsg = vbNullString Then strMsg = "Form complete.  Thank you."
  MsgBox strMsg, vbOKOnly, "REPORT"
lbl_Exit:
  Exit Sub
End Sub

Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim strVar() As String 'Here we have declared a string variable as an array of strings
Dim strVar2 As String
Dim varVar 'Here we have declared a variant variable
Dim lngNum As Long
  strVar = Split("A,B,C", ",")
  'A variant variable can be a string
  varVar = strVar
  'Here we set our variant variable to the variant returned by the Array funciton
  varVar = Array("A", 1, "C", 2.4)
  'While some other variable types are automatically resolved e.g., ...
  lngNum = 100
  strVar2 = lngNum
  '... a variant array cannot be resolved to a string
  On Error GoTo Err_Handler
  strVar = varVar
lbl_Exit:
  Exit Sub
Err_Handler:
  MsgBox "Do you see?"
  Resume lbl_Exit
End Sub