check boxes

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Fuzzhead - 21 Jan 2007 02:30 GMT

I have the following macro that will update a check box. My document has 25
check boxes. Is there a way to write one macro that will update all the boxes
instead of coping the following 25 times?

If frm.cb1.Value = True Then
ActiveDocument.FormFields("Check25").CheckBox.Value = 1
Else
ActiveDocument.FormFields("Check25").CheckBox.Value = 0
End If

Reply to this Message

Greg Maxey - 21 Jan 2007 03:18 GMT

Try

Dim i As Long

If frm.cb1.Value = True Then
For i = 1 to 25
ActiveDocument.FormFields("Check" & i).CheckBox.Value = 1
Next i
Else
For i = 1 to 25
ActiveDocument.FormFields("Check" & i).CheckBox.Value = 0
Next i
End If

Signature

Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.

> I have the following macro that will update a check box. My document
> has 25 check boxes. Is there a way to write one macro that will
[quoted text clipped - 5 lines]
> ActiveDocument.FormFields("Check25").CheckBox.Value = 0
> End If

Reply to this Message