знатокам MS Word

NET_Stranger

Есть вордовский документ содержащий огромную кучу цветных картинок и текста. Возможно ли без применения макроса сделать все картинки черно-белыми? Руками это делается очень долго, путем изменения свойств картинки: формат объекта->цвет->оттенки серого. Или может научите пользоваться макросами, много тут писать-то? Не заставляйте меня отдавать работу стажерам

nawok

Sub Macro1
For Each InlineShape In ActiveDocument.InlineShapes
InlineShape.PictureFormat.ColorType = msoPictureGrayscale
Next
End Sub

Soslan

Раз уж тема заведена, не дадите ли и мне совет по поводу макросов. часто приходится вычитывать разные тексты в поисках упоминания каких либо терминов. не посоветуете ли как создать макрос для выделения какого либо слова в тексте каким либо цветом?

Andbar

Вообще-то это делается без макроса.
Сначала выбираем цвет выделения (кнопкой на панели форматирования, при этом никакой текст не должен быть выделен затем открываем диалог ___замены___.
Дальше всё понятно из рисунка.

NET_Stranger

прикольный макрос, спасибо! я-то думал будут кипы кода:) он даже работает, вот тока почему-то не все картинки обрабатываются, т.е. остаётся где-то 20% цветных картинок

NET_Stranger

ап чтоли...

Trofimovyoa

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

стало быть, не все Shapes одинаково Inline в твоем документе
обратись к коллекции ActiveDocument.Shapes
сам не пробовал, может и не сработать