Print content if checkbox is checked, if not, then dont print

[Chuck]

hi guys,

i did a bit of more research and found this

=====
http://help.lockergnome.com/office/...ng-enabled-checkbox-fields-ftopict992089.html

Insert a bookmark around section of the text that you might want
deleted and
have a macro that contains the following code run on exit from the
associated checkbox

With ActiveDocument
..Unprotect
If .FormFields("Check1").CheckBox.Value = False Then
..Bookmarks ("CheckBox1Text").Range.Font.Hidden=True
Else
..Bookmarks("CheckBox1Text").Range.Font.Hidden=False
End If
..Protect wdAllowOnlyFormFields, NoReset
End With

Under Tools>Options>View, you will want to have the display of Hidden
Text
enabled so that the user can go back and change their selection and
under
Tools>Options>Print, make sure that the box for Hidden Text is
unchecked so
that text that is so formatted does not print.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

===================

now, i have created a macro based on the above..

With ActiveDocument
.Unprotect

If .FormFields("Check15").CheckBox.Value = False Then
.Bookmarks("CheckBox15Text").Range.Font.Hidden = True
Else
.Bookmarks("CheckBox15Text").Range.Font.Hidden = False
End If

If .FormFields("Check13").CheckBox.Value = False Then
.Bookmarks("CheckBox13Text").Range.Font.Hidden = True
Else
.Bookmarks("CheckBox13Text").Range.Font.Hidden = False
End If

If .FormFields("Check14").CheckBox.Value = False Then
.Bookmarks("CheckBox14Text").Range.Font.Hidden = True
Else
.Bookmarks("CheckBox14Text").Range.Font.Hidden = False
End If

If .FormFields("Check17").CheckBox.Value = False Then
.Bookmarks("CheckBox17Text").Range.Font.Hidden = True
Else
.Bookmarks("CheckBox17Text").Range.Font.Hidden = False
End If

.Protect wdAllowOnlyFormFields, NoReset

End With

End Sub

i have put this in
Normal > Modules > NewMacros

however, this is not working

can anyone advise what i have done wrong?

cheers