Changing From Color to B&W

[Leonard M. Wapner]

I've got a 100 page Word doc with many color jpg's, bmp's, AutoShapes, etc.
Now I find that I must convert all to B&W or gray scale. Is there some way
to convert the entire doc at once, or must I individually edit each insert?

Thanks -

Len

 

[Mark Tangard]

Hi Leonard,

Nooooooooooooo, we would never let you suffer like that.
This'll do it in a few seconds:

Dim sh As Shape, ils as InlineShape
For Each sh In ActiveDocument.Shapes
sh.PictureFormat.ColorType = msoPictureGrayscale
Next sh
For Each ils In ActiveDocument.InlineShapes
ils.PictureFormat.ColorType = msoPictureGrayscale
Next ils

If you're not sure about B&W or grayscale, make a copy
of the file and experiment by substituting, in the code
above (2 places) 'msoPictureBlackAndWhite' where it says
'msoPictureGrayscale.'

 

[sf]

I've got a 100 page Word doc with many color jpg's, bmp's, AutoShapes, etc.
Now I find that I must convert all to B&W or gray scale. Is there some way
to convert the entire doc at once, or must I individually edit each insert?

I would go to Start > settings > Printers & select my
printer. Then I'd go to file > Properties > Advanced and
select "Print in Grayscale".

Voila! No color.