microsoft.public.word.vba.general

Hi Doug, I get an error message for this line

If .Cell(i, 1).Range.FormFields(1).CheckBox.Value = True Then

The error says - The requested member of the collection does not exist.
--
Jamie


"Doug Robbins - Word MVP" wrote:

> Easiest way is the run a macro with the following code, adjusting the table
> index and number of the cell as required
>
> Dim i as Long, result as Long
> result = 0
> With ActiveDocument
> With .Tables(1)
> For i = 1 to 15
> If .Cell(i, 1).Range.FormFields(1).CheckBox.Value = True Then
> result = result + 1
> End if
> Next i
> End With
> .Formfields("Text108").Result = result
> End With
>
> --
> Hope this helps.
>
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
>
> Doug Robbins - Word MVP
>
> "Jamie" wrote in message
> news:17D378C8-FC43-446D-B822-E8B9D2C0E221@microsoft.com...
> > 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.
> >>
>
>
>