Вопрос от пользователя Bata:

Я могу вам предложить следующий макрос для вставки в документ текста с указанием количества рисунков в текущем документе.

Установите курсор ввода в том месте документа, где вы хотите вставить текст с количеством рисунков и запустите макрос:

Sub picCount()
'Подсчет количества рисунков в документе (тип InlineShape)
If ActiveDocument.InlineShapes.Count < 0 Then
   MsgBox "Рисунков типа InlineShape в документе не обнаружено", vbInformation
Else
   Selection.TypeText Text:="Количество рисунков: " & ActiveDocument.InlineShapes.Count
End If
End Sub

Если вы не знаете, как подключить к документу и применить эти макросы, изучите следующие заметки с сайта:

Создание макроса из готового кода

Автоматическая запись макроса

]]> ]]>