Check Boxes - How to add them up

[Guest]

I have several check boxes and need to have a way to add up how many boxes
are checked automatically and display that information in the header of the
document. Any idea's on how to do this?

Thank you in advance.

 

[Greg Maxey]

With a macro something like this and a DocVariable field in the
header:

Sub CalcCBs()
Dim oFF As FormField
Dim oFFs As FormFields
Dim i As Long
'Dim oChkCount As Variable
Set oFFs = ActiveDocument.FormFields
For Each oFF In oFFs
If oFF.Type = wdFieldFormCheckBox Then
If oFF.CheckBox.Value = True Then i = i + 1
End If
Next oFF
ActiveDocument.Variables("oCheckCount").Value = i
ActiveDocument.Unprotect
ActiveDocument.StoryRanges(wdPrimaryHeaderStory).Fields.Update
ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True
End Sub

The field is inserted using CTRL+F9. In the braces type { DocVariable
oCheckCount }
You could set this macro to run on exit from the individual checkboxes
but "the automatic" part would require that the user physically exited
from the last check box accessed or your count would be off. If you
have you a more complicated page setup (other header types) you would
need to update the specific storyRange that holds your DocVariable
field.

 

[Guest]

Thank you for your response. I will give that a shot.