Validating checkbox values in MS Word

[Worsty]

I have a form where I have multiple Yes/No checkboxes next to
questions. The Yes/No checkboxes reside in a table and each checkbox
is in its own table cell.


What I want to do is not allow the user to check both checkboxes for
one question. I would like to do this in vba code. Here is what I have so far. The issue is that if the user tabs between Yes/No fields it checks the new field and unchecks the previous field.

Sub MakeCheckBoxesExclusive()
Dim oField As FormField
RowNum = Selection.Information(wdEndOfRangeRowNumber)
For Each oField In Selection.Tables(1).Rows(RowNum).Range.FormFields
oField.CheckBox.Value = False
Next oField
Selection.FormFields(1).CheckBox.Value = True
End Sub

 

[Zoddy]

Hi

Don't know if your yes/no check boxs are in the same cell or adjacent.
Couldn't get the 'checking' of the box's by tabing past them on my machine
See attached word doc in zip file.

It's not completely bug free but may give you a start - it looks at it's on chk box value and then bars the adjacent cell chk box if checked, this works back or forth in the same line depending which one is selected first.

The macro is run on exit from the chk box.

Also a reset button added.

See how you get on

Regards

Zoddy

 

[Worsty]

Thank You very much for your help. I'll try it out and let you know.