Total checked option buttons in a word table?

[Guest]

Can you add the total of checked option buttons in a word table?

 

[Cindy M -WordMVP-]

Hi =?Utf-8?B?c2NvdHQ=?=,

Can you add the total of checked option buttons in a word table?

You could probably use a macro. But you'd need to tell us what
needs to be totalled. The number of checkboxes checked? Values
associated with a checkbox? Also, which version of Word?

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8
2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow
question or reply in the newsgroup and not by e-mail

 

[Guest]

The version is 2000. I would need to calculate the number of boxes checked.

thanks

 

[Cindy M -WordMVP-]

Hi =?Utf-8?B?c2NvdHQ=?=,

The following macro will add up the number of checked boxes in the first table
of a document and output the result in a message box

Sub CountCheckboxes()
Dim tbl As Word.Table
Dim ffld As Word.FormField
Dim lCheckedBoxes As Long

Set tbl = ActiveDocument.Tables(1)
lCheckedBoxes = 0
For Each ffld In tbl.Range.FormFields
If ffld.CheckBox.Valid Then
If ffld.CheckBox.Value = True Then
lCheckedBoxes = lCheckedBoxes + 1
End If
End If
Next
MsgBox lCheckedBoxes
End Sub

The version is 2000. I would need to calculate the number of boxes checked.

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail