Your checkboxes are indeed of the Active-X type. To get the desired tally you could use a macro like:
Code:
Sub CountChecks()
Dim iShp As InlineShape, i As Long, j As Long, StrPct As String
For Each iShp In ActiveDocument.InlineShapes
If Not iShp.OLEFormat Is Nothing Then
If iShp.OLEFormat.ClassType = "Forms.CheckBox.1" Then
i = i + 1
If iShp.OLEFormat.Object.Value = True Then j = j + 1
End If
End If
Next
If i <> 0 Then
StrPct = " (i.e. " & Format(j / i, "0.0%") & ")"
End If
MsgBox j & " of " & i & " checkboxes" & StrPct & " are checked."
End Sub
For macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm