How do you print correction marks in Word

[Sean]

I'm trying to keep the correction marks when printing in Microsoft Word.
Currently I can see them when writing my document, but I want to preserve
them when I print out the document.

Currently, the only way I see to do this is to screen shot the page, but I'd
rather not do that since it's a lot of extra steps.

 

[Peter T. Daniels]

What do you mean by "correction marks"? Do you mean the Track Changes
stuff?

In your Print dialog, under "Print What?", choose "Document with
Markup."

 

[Kimmie B]

In your Print Dialog box, there's a "Print What" drop-down box.

Select "Document Showing Markup".

 

[Suzanne S. Barnhill]

If you have markup displayed, the default is to print it. You can switch to
Print Preview to see what will print, but unless you either switch from
Final Showing Markup to Final view in Word or select Document instead of
Document Showing Markup in the Print dialog, you will get the markup.

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

 

[Sean]

Hello again,

I didn't mean the user submitted commentaries, like editor marks. I meant
the ones that Microsoft Word automatically makes when a word is spelled wrong
or there is a sentence fragment. I want to preserve the red and green
squiggly lines you get when Word detects something is wrong when printing.

 

[Jay Freedman]

There is no built-in provision in Word to print those lines. You could use a
macro to format the spelling and grammar errors with real wavy underlines
(best to do this to a copy of the document, not the original).

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Jay Freedman]

Here's a macro to do the job. See
http://www.gmayor.com/installing_macro.htm if needed.

Sub PrintableErrors()
Dim srcDoc As Document
Dim spErr As Range
Dim grErr As Range

If Len(ActiveDocument.Path) = 0 Then
MsgBox "Save the document first!"
Exit Sub
End If

' make a copy of active document
Set srcDoc = Documents.Add( _
Template:=ActiveDocument.FullName, _
NewTemplate:=False, _
DocumentType:=wdNewBlankDocument)

' format the grammar errors
' with green wavy underlines
For Each grErr In srcDoc.GrammaticalErrors
With grErr.Font
.Underline = wdUnderlineWavy
.UnderlineColor = wdColorGreen
End With
Next

' format the spelling errors
' with red wavy underlines
For Each spErr In srcDoc.SpellingErrors
With spErr.Font
.Underline = wdUnderlineWavy
.UnderlineColor = wdColorRed
End With
Next

' turn off the nonprinting underlines
srcDoc.ShowSpellingErrors = False
srcDoc.ShowGrammaticalErrors = False
End Sub