Word – A thousand JPEG images in a Word document: how can I format them in the same way

formattingjpegmicrosoft wordvba

Please suppose you have a Microsoft Word 2007 document: you have just inserted in it about a thousand of JPEG images.

With the first image, you do right-click, then FORMAT PICTURE, then option "RECOLOR", and then select "BLACK AND WHITE" in the second row "COLOR MODES".

How can you automate the process of giving the same "format picture" command to the other 999 JPEG images?

I have just tried with FORMAT PAINTER, but I did not have success.

Any clues?

This is a similar QUESTION with NO ANSWERS: http://thedailyreviewer.com/windowsapps/view/formatting-all-pictures-in-a-word-document-in-one-go-11962810

How do I select all pictures in one go, for consistent formatting, so that
they all appear the same throughout my word document, ie, so that they all
have the same text wrapping margins, for example… and are all the same %
size of the original?
If word doesn't allow me to 'select all' for pictures, can I copy the
formatting of the pics and then paste it over the other pics somehow, similar
to the format brush used for text?

Thank you in advance for your kind help.

Best Answer

You can:

Dim Pic As InlineShape
For Each Pic In ActiveDocument.InlineShapes
  Pic.PictureFormat.ColorType = msoPictureGrayscale
Next