The macro processes checkbox, comboboxes (which as Graham has stated in your case should be dropdown lists) and dropdown list. That's it.

I did not ask about input. The code you posted takes four arguments. I asked what those arguments were.

2018-12-02_12-34-56.jpg

For shading see:


Sub ScratchMacro() 'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 12/2/2018Dim lngY As Long, lngN As Long, lngNA As Long
Dim oCC As ContentControl
Dim oRng As Range
  For Each oCC In ActiveDocument.Range.ContentControls
    Select Case oCC.Type
      Case 8
        If oCC.Checked Then
          lngY = lngY + 1
        Else
          lngN = lngN + 1
        End If
      Case 3, 4
        Select Case oCC.Range.Text
          Case Is = "Y": lngY = lngY + 1: oCC.Range.Cells(1).Shading.BackgroundPatternColor = wdColorBlue
          Case Is = "N": lngN = lngN + 1: oCC.Range.Cells(1).Shading.BackgroundPatternColor = wdColorRed
          Case Else: lngNA = lngNA + 1: oCC.Range.Cells(1).Shading.BackgroundPatternColor = wdColorGreen
        End Select
    End Select
  Next oCC
  Set oRng = ActiveDocument.Range
  oRng.Collapse wdCollapseEnd
  oRng.InsertBefore vbCr & "There are " & lngY & " checked or Y responses"
  oRng.Font.ColorIndex = wdBlue
  Set oRng = ActiveDocument.Range
  oRng.Collapse wdCollapseEnd
  oRng.InsertBefore vbCr & "There are " & lngN & " unchecked or N responses."
  oRng.Font.ColorIndex = wdRed
  Set oRng = ActiveDocument.Range
  oRng.Collapse wdCollapseEnd
  oRng.InsertBefore vbCr & "There are " & lngNA & " blank or invalid responses"
  oRng.Font.ColorIndex = wdGreen
lbl_Exit:
  Exit Sub
End Sub