Как в файле Ворд одновременно изменить размеры всех картинок?

Когда-то давно нашел следующий макрос. В случае, если 100% рисунка меньше ширины страницы, макрос выбирает 100%, а если 100% рисунка больше ширины страницы - то ширину страницы. Надеюсь, что он еще работает.
Если что - подкорректируйте с учетом своей задачи.

Sub ScalePic()
Dim inshp As InlineShape
    For Each inshp In ActiveDocument.InlineShapes
        Select Case inshp.Type
            Case 3, 4, 12, 13
            If inshp.ScaleWidth <> 100 Then
                inshp.Select
                    inshp.ScaleWidth = 100
                    inshp.ScaleHeight = 100
                    If inshp.Width > ColumnWidth(inshp) Then
                        inshp.Width = ColumnWidth(inshp)
                        inshp.ScaleHeight = inshp.ScaleWidth
                    End If
            End If
        End Select
    Next inshp
End Sub

Public Function ColumnWidth(inshp As InlineShape) As Single
Dim l As Single, r As Single, p As Single
    p = inshp.Range.PageSetup.PageWidth
    l = inshp.Range.PageSetup.LeftMargin
    r = inshp.Range.PageSetup.RightMargin
        ColumnWidth = p - (l + r)
End Function

Добрый день, fairum!
Я очень сожалею, что так получилось. Данный макрос не мог вызвать нарушений в работе программы Word. Я ее применял неоднократно, и никаких проблем мне она не создавала.
Надеюсь, описанная вами проблема возникла однократно и больше не повторялась.

А вообще-то, если вам это интересно, изучайте макросы.
Например, посмотрите, пожалуйста, здесь:
http://wordexpert.ru/forum/viewtopic.php?id=1342
Написано для версий 2007/2010, но и вам для версии 2003 многое тоже может быть полезно.

И еще: прочитайте инструкцию по использованию макросов в 6-й главе из книги основателя нашего портала Антона Кокина "Word 2003/2007. Народные советы":
внешняя ссылка и попробуйте реализовать то, что написано в этом материале.

И надо 4 раза кликать на разные окна пока закроется....
что теперь делать? снести офис и инсталлировать по новой?
неужели нет другого пути?

Точнее, самое главное, удалите строчку:

Sub MAIN()

Я не знаю, откуда она взялась. Я вам ее не писал.

Просто попробуйте стереть эти слова в редакторе VBA (скриншот которого вы мне прислали):

Sub MAIN()

и сохранить (CTRL+S).

Если не получится - будем думать еще.

Кстати, что у вас за модуль AutoExit? Какие-то действия выполнялись на выходе из программы. Он вам нужен?

Ваш совет "стереть и сохранить (CTRL+S)" немного помог:
внешняя ссылка
Теперь после закрытия файла ворд надо делать только один лишний шелчек,
потом что выскакивает это:
внешняя ссылка
при нажатии ОК - ворд закрывается
Но это все равно лишнее

А как я теперь его открою? Раньше то он сам выскакивал при закрытии Ворда

Ну, вот, хорошо. Теперь, исправляя возникшую проблему, вы приобрели некоторый опыт работы с макросами.

Один Мудрец (так он себя величает), дал такой совет:

1.Сохранить страницу целиком в html.
2. Перейти в папку с этой страницей.
3. Там должна быть папка с именем, одинаковым с наименованием страницы + дополнение - "files".
4. Там сохраняются все картинки.
5. Любым просмотрщиком, например ACDSee, путем пакетного преобразования уменьшил бы размеры всех нужных файлов.
6. Открыл бы заново страницу с диска и потом уже копировал бы в Ворд.

Не знаю как на практике сработает, но это первое, что попробовал бы сделать.

Такое "выделить все картинки и уменьшить размер" есть не Ворде, а в Excel. В Водде такое не получается сделать, не работает.

Как вы сохраняли?
Я (правда в Word 2010) сохранил как Веб-страница, уменьшил картинку и снова открыл в Ворде.
У меня картинка открылась того же размера, но худшего качества (растянутая). То же и в браузере.
Если посмотреть HTML-файл, то там у меня задается исходный размер картинки и путь:

 <v:path o:extrusionok="f" gradientshapeok="t" o:connecttype="rect"/>
 <o:lock v:ext="edit" aspectratio="t"/>
</v:shapetype><v:shape id="Рисунок_x0020_1" o:spid="_x0000_i1027" type="#_x0000_t75"
 style='width:468pt;height:382.5pt;visibility:visible;mso-wrap-style:square'>
 <v:imagedata src="Коллекции%20на%20вкладке.files/image001.png" o:title=""/>
</v:shape><![endif]--><![if !vml]><img width=624 height=510
src="Коллекции%20на%20вкладке.files/image002.jpg" v:shapes="Рисунок_x0020_1"><![endif]></span></p>

А как у вас?

Проблема была в том, что оператор

inshp.Select

"портит" выделение.
Удалось исправить ситуацию с помощью определения диапазона, содержащего выделение:

Sub ScalePic()
Dim inshp As InlineShape
Dim rngSel As Range
Set rngSel = Selection.Range
    For Each inshp In rngSel.InlineShapes
        inshp.Select
        Select Case inshp.Type
            Case 3, 4, 12, 13
            If inshp.ScaleWidth <> 100 Then
                inshp.Select
                    inshp.ScaleWidth = 100
                    inshp.ScaleHeight = 100
                    If inshp.Width > ColumnWidth(inshp) Then
                        inshp.Width = ColumnWidth(inshp)
                        inshp.ScaleHeight = inshp.ScaleWidth
                    End If
            End If
        End Select
    Next inshp
End Sub

Public Function ColumnWidth(inshp As InlineShape) As Single
Dim l As Single, r As Single, p As Single
    p = inshp.Range.PageSetup.PageWidth
    l = inshp.Range.PageSetup.LeftMargin
    r = inshp.Range.PageSetup.RightMargin
        ColumnWidth = p - (l + r)
End Function