hi guys,
i did a bit of more research and found this
=====
http://help.lockergnome.com/office/W...ict992089.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=Fal se
End If
..Protect wdAllowOnlyFormFields, NoReset
End With
Under ToolsOptionsView, you will want to have the display of Hidden
Text
enabled so that the user can go back and change their selection and
under
ToolsOptionsPrint, 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