na, kihagytam a selection-t meg a frames(1)-et és így lefut. Viszont nem értek a word VBA-jához, úgyhogy nemtom hogy ezzel nem lép-e fel valami hibalahetőség.


Sub ExclusiveCheckboxes()
Dim objField As FormField
For Each objField In Range.FormFields
objField.CheckBox.Value = False

Next objField
FormFields(1).CheckBox.Value = True
End Sub