You need to hide the check box as well as the text field
With ActiveDocument
..Unprotect
If .FormFields("Check1").CheckBox.Value = False Then
..Bookmarks("CheckBox1Text").Range.Font.Hidden = True
..Bookmarks("Check1").Range.Font.Hidden = True
Else
..Bookmarks("CheckBox1Text").Range.Font.Hidden = False
..Bookmarks("Check1").Range.Font.Hidden = False
End If
..Protect wdAllowOnlyFormFields, NoReset
End With
However you will need a macro to reet the form as once hidden there is no
way of re-accessing the checkbox to un-hide the hidden stuff
With ActiveDocument
.Unprotect
.Range.Select
Selection.Font.Hidden = False
.Protect wdAllowOnlyFormFields, NoReset
End With
See also
http://gregmaxey.mvps.org/Toggle_Data_Display.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>