count selected checkboxes in each group

gmaxey · #2 02-21-2015, 07:27 AM

If your structure is consistent (6 checks for each question) then the following should work. You will have to use a naming convention like "grp1Chk1, grp1Chk2, etc. and name the group totals grp1Tally, grp2Tally etc.

Code:

Sub TallyTicks()
'A basic Word macro coded by Greg Maxey
Dim lngGroup As Long
Dim lngIndex As Long
Dim lngTally As Long
  lngGroup = Mid(Selection.FormFields(1).Name, 4, 1)
  For lngIndex = 1 To 3
    If ActiveDocument.FormFields("grp" & lngGroup & "Chk" & lngIndex).CheckBox.Value = True Then
      lngTally = lngTally + 1
    End If
  Next lngIndex
  ActiveDocument.FormFields("grp" & lngGroup & "Tally").Result = CStr(lngTally)
lbl_Exit:
  Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Group Table Rows/Column (like Excel Group)	eoinymc	Word	1	03-11-2014 04:51 AM
checkboxes	smohap	Word	1	06-19-2011 09:24 PM
Excel Checkboxes	theresamille699	Excel	3	04-12-2011 08:08 PM
Ticking Checkboxes	screid	Word	1	06-08-2010 02:04 AM
Manipulating checkboxes in XML	Ivo	Word	0	12-06-2005 09:04 AM