Create a new character style - let's call it 'Answers' - based on the
undelying style and apply it to the answers.You can then use the following
macro to toggle the display of the answers. If you print the document while
the answers are not displayed, the answers will not be printed.
Sub HideAnswers()
Dim bSHidden As Boolean
Dim bPHidden As Boolean
bSHidden = ActiveWindow.View.ShowHiddenText
bPHidden = Options.PrintHiddenText
With ActiveDocument.Styles("Answers").Font
.Hidden = Not .Hidden
If .Hidden = True Then
ActiveWindow.View.ShowHiddenText = False
Options.PrintHiddenText = False
Else
ActiveWindow.View.ShowHiddenText = bSHidden
Options.PrintHiddenText = bPHidden
End If
End With
End Sub
http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>