[oceanfrontcabin]

how do I save a word 2007 document in grayscale?

[Graham Mayor]

oceanfrontcabin wrote:
how do I save a word 2007 document in grayscale?

You don't! Grayscale is a printer driver function and printer data cannot be
stored with the document. You could setup a printer driver configured to
grayscale and direct the document output to that (see
http://www.gmayor.com/fax_from_word.htm for example code), or you could
create a copy of the document with all the elements re-coloured manually or
using a macro along the lines of the following, though you would have to
modify it to provide the level of control required for whatever your
document(s) contained.

Sub Grey()
With ActiveDocument
.Save
.Range.Font.Color = wdColorBlack
.Range.HighlightColorIndex = wdNoHighlight
For i = 1 To .InlineShapes.Count
.InlineShapes(i).PictureFormat.ColorType = msoPictureGrayscale
Next i
For j = 1 To .Shapes.Count
.Shapes(j).PictureFormat.ColorType = msoPictureGrayscale
Next j
.SaveAs .Path & "\Grayscale " & .Name
End With
End Sub


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org