View Single Post
 
Old 05-31-2016, 09:15 PM
Guessed's Avatar
Guessed Guessed is online now Windows 10 Office 2013
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,969
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

To avoid listing every checkbox explicitly, just work out how to define the range where all the checkboxes sit. For instance, putting one question's checkboxes AND the clear button into a table cell will allow you to reuse the same code for each question.
Code:
Private Sub ClearQ_Click()
  Dim aFF As FormField
  For Each aFF In Selection.Range.Cells(1).Range.FormFields
    If aFF.Type = wdFieldFormCheckBox Then aFF.Result = False
  Next aFF
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote