Changing From Color to B&W

  • Thread starter Thread starter Leonard M. Wapner
  • Start date Start date
L

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
 
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.'
 
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.
 
Back
Top