microsoft.public.word.vba.general

Hi Jay, I am trying to use the coding you supplied to JC, but I’m not sure
how to tweek it to fit my scenario.

I’m working in Word 2003, I have a table set up (15 rows). I have a column
titled Intake. The fields in this column are check boxes (1 for each row).
I have given the check boxes in this column a new bookmark name, Intake
(e.g., Intake1, Intake2 all the way to Intake15). Like JC, I just want to
count how many checkboxes have been checked. I do not need to calculate a
percentage as JC did. My coding is as follows:

Sub IntakeCount()
Dim TotalCheckBoxes as Long
Dim CheckedBoxes as Long
Dim FFld as FormField
Dim myDoc as Document

Set myDoc = ActiveDocument

For i = 1 To TotalCheckBoxes
Set FFld = myDoc.FormFields(“Intake” & i)
If FFld.CheckBox.Value = True Then
CheckedBoxes = CheckedBoxes + 1
End If
Next i

I have the macro run On Entry in formfield, Text108. Nothing happens. I
can’t figure out what I’m missing. Any help you can give me would be
wonderful! Thanks

--
Jamie


"Jay Freedman" wrote:

> On Fri, 1 Feb 2008 11:40:41 -0800, J C wrote:
>
> >Hi Jay, I should've have been a bit more specific. This form has multiple
> >sections with different field types (including checkboxes), and for each
> >section is a "Completed" checkbox for that section. So I wouldn't want this
> >script to count all of the checkboxes but only these "Completed" checkboxes.
> >How can this script be modified to include only the section "Completed"
> >checkboxes? If there is a better way of doing so I am all ears.
>
> This can be done, but you have to tell the macro how to recognize which ones are
> the "Completed" checkboxes. Do they have something specific in their names that
> aren't in any other checkbox's name? Or are they formatted with a specific style
> that isn't used anywhere else? Or some other unique characteristic that a macro
> could use to say "this one should be counted, but that one shouldn't"?
>
> If you don't have any such characteristic yet, probably the easiest one is to
> change the names of the "Completed" boxes. When the form is unprotected,
> double-click one of these checkboxes to open its Options dialog and change the
> entry in the "Bookmark" box. For example, you could name them "Completed1",
> "Completed2", etc. where the number is the section number.
>
> Then the For loop in the macro can be rewritten like this:
>
> For i = 1 To TotalCheckBoxes
> Set FFld = myDoc.FormFields("Completed" & i)
> If FFld.CheckBox.Value = True Then
> CheckedBoxes = CheckedBoxes + 1
> End If
> Next i
>
> This can be rather touchy -- if the value of TotalCheckBoxes is wrong, or if you
> don't have a checkbox name for each value of i between 1 and TotalCheckBoxes,
> then an error will stop the macro. It's possible to add error checking to catch
> these problems; I didn't show it here to keep things simple.
>
> Another approach is to use the For Each as in the original macro, and use a
> different If statement in place of "If FFld.Type = wdFieldFormCheckBox Then" to
> make sure the name is "Completed" and a number:
>
> If FFld.Name Like "Completed#" Then
>
> Make the same replacement in the CheckboxCount function if you use that.
>
> --
> Regards,
> Jay Freedman
> Microsoft Word MVP FAQ: http://word.mvps.org
> Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit.
>