VBA, Word и картинки

[Beerukoff]

Уважаемые гуру, помогите мне, пожалуйста, написать один макрос.

Вводная - в вордовском файле неизвестное мне количество картинок (более 1 точно), каждая картинка является гиперссылкой.

Цель - нужно уменьшить размер (ширину и высоту) каждой картинки, перевести их в ч/б и удалить гиперссылку.

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

Спасибо!

[Viper]

начни с изучения иерархии объектов Word

Подсказка: коллекция InlineShapes тебе поможет

[Beerukoff]

Почитал справку, провел ряд эксперементов и в итоге у меня заработал такой макрос:

Картинок = ActiveDocument.InlineShapes.Count
For n=1 to Картинок
ActiveDocument.InlineShapes(n).Hyperlink.Delete
ActiveDocument.InlineShapes(n).ConvertToShape
ActiveDocument.Shapes(n).Height = 170.34
Active ActiveDocument.Shapes(n).PictureFormat.ColorType = msoPictureGrayscale
ActiveDocument.Shapes(n).ConvertToInlineShape
Next n

Так что ответил сам себе:)

PS Писал с экрана (макрос на одном компе, инет на другом), так что мог и ошибиться

[Beerukoff]

Блин, первый шаг отрабатывает нормально, а на втором ругается, что индекс выходит за допустимые пределы:( Что делать?

[inq]

естественно выходит
на втором шаге ActiveDocument.Shapes(2) не существует

[Beerukoff]

Написал другой текст, вроде работает на всех картинках:

For Each hLink in ActiveDocument.Hyperlinks
hLink.Delete
Next hLink

For Each Picture in ActiveDocument.InlineShapes
Picture.Height = 170.34
Picture.Width = 226.75
Picture.PictureFormat.ColorType = msoPictureGrayscale
Next Picture