Having Word Print Blanks

[Bart]

I teach school and I would like to be able to have a document where I can
have the answers to questions show up on the screen but be blank when I print
them out. Is there anyway I can make word leave things blank only when I
print them?

 

[Tom Willett]

Have the background of your document black, and make the text white, then
don't let it print the background.

:I teach school and I would like to be able to have a document where I can
: have the answers to questions show up on the screen but be blank when I
print
: them out. Is there anyway I can make word leave things blank only when I
: print them?

 

[Suzanne S. Barnhill]

Sort of. Make sure that "Hidden text" is not checked on the Print tab of
Tools | Options but *is* checked on the View tab. Put the answers in a table
cell with the height specified as what Exact amount is required to contain
the text. Format the answer text (or, better, the style used for the
answers) as Hidden.

Another approach is to use a distinctive style for the answers and have a
print macro that modifies the font color of this style to white, prints the
document, and then changes the font color back to Automatic.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org

 

[Graham Mayor]

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


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Graham Mayor]

If you would prefer to retain the space that the answers occupied and the
answers are not in a table, then the following would work instead

Sub HideAnswers()
If ActiveDocument.Styles("Answers").Font.Color = wdColorAuto Then
ActiveDocument.Styles("Answers").Font.Color = wdColorWhite
Else
ActiveDocument.Styles("Answers").Font.Color = wdColorAuto
End If
End Sub

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>