Тысяча изображений JPEG в документе Word: как я могу отформатировать их таким же образом?

Question

Предположим, у вас есть документ Microsoft Word 2007: вы только что вставили в него около тысячи изображений JPEG.

С первым изображением вы щелкаете правой кнопкой мыши, затем ФОРМАТИРУЕТЕ ИЗОБРАЖЕНИЕ, затем опцию "РЕКОЛОР", а затем выбираете "ЧЕРНЫЙ И БЕЛЫЙ" во втором ряду "ЦВЕТНЫЕ РЕЖИМЫ".

Как вы можете автоматизировать процесс передачи одной и той же команды "отформатировать изображение" другим 999 изображениям JPEG?

Я только что попробовал с FORMAT PAINTER, но у меня не было успеха.

Есть какие-нибудь подсказки?

Это аналогичный ВОПРОС без ОТВЕТОВ: http://thedailyreviewer.com/windowsapps/view/formatting-all-pictures-in-a-word-document-in-one-go-11962810

Как выбрать все изображения за один раз, для согласованного форматирования, чтобы они все выглядели одинаково во всем текстовом документе, например, чтобы все они имели одинаковые поля переноса текста, например ... и были одинаковыми% размер оригинала? Если слово не позволяет мне «выбрать все» для изображений, могу ли я скопировать форматирование рисунков, а затем каким-то образом вставить его на другие рисунки, подобно кисти форматирования, используемой для текста?

Заранее благодарю за помощь.

Answer 1

Вы можете:

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

Answer 2

Хорошо, большое спасибо Алексу К., решение следующее:

Sub Macro1()
'
' Macro1 Macro
'
'
Dim Pic As InlineShape
For Each Pic In ActiveDocument.InlineShapes
  Pic.PictureFormat.ColorType = msoPictureBlackAndWhite
Next
End Sub

Я принял решение Алексея К., потому что он нашел правильный способ решения проблемы. Правое ключевое слово - msoPictureBlackAndWhite вместо msoPictureGrayscale.

Большое спасибо, Алекс К. ;-)