Как узнать количество рисунков в документе?

[Busine2009]

Количество таблиц в документе можно узнать, что то там

tables.count.

А вот для рисунков как быть?

[viter.alex]

Аналогично. Рисунки — это Shapes и InlineShapes

[Busine2009]

Я вроде искал что-то подобное, но не нашел.

Спасибо.

[akokin]

Сообщение от Busine2009

Я вроде искал что-то подобное, но не нашел.

Спасибо.

Вот макрос для граф.объектов типа InlineShape (не автофигуры!):

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

[Sasha_Smirnov]

Или вот такой макросик...

Sub ListOfFigures() 'Подписывает рисунки InlineShapes
'и вставляет в начало их список (Название....Страница)'
' Макрос записан 28.06.2009 Customer'
Dim i As Long

With ActiveDocument
    For i = 1 To .InlineShapes.Count
    .InlineShapes(i).Select
    Selection.InsertCaption Label:="Рис.", Position:=wdCaptionPositionBelow
    Next
    
    Selection.HomeKey unit:=wdStory 'курсор - в начало файла'
    
        .TablesOfFigures.Add Range:=Selection.Range, Caption:="Рис.", _
            IncludeLabel:=True, _
            RightAlignPageNumbers:=True, _
            IncludePageNumbers:=True, _
            UseHyperlinks:=True
End With
End Sub

В качестве испытательного полигона прилагаю файл с моими же рисунками.

Квадратики (при просмотре непечатаемых знаков, Ctrl-Shift-8) говорят о том, что абзац с рисунком, при разбиении на страницы, не будет оторван от следующего абзаца (где его, этого рисунка, подпись).

И опять-таки, в документах на шаблоне Normal.dotm (а не Normal.dot), код не работает.

[Sasha_Smirnov]

А вот этот работает! Вызов через альт-F8 в вышеприложенном файле.

Sub ShapesAccont()
Dim i As Long
On Error GoTo Notinline
Dim claud As InlineShape
    For Each claud In ActiveDocument.InlineShapes
    i = i + 1
    Next claud
MsgBox "InlineShape's quantity = " & i & _
" in the ActiveDocument"

Notinline: MsgBox _
"Количество фигур " & ActiveDocument.Shapes.Count & "."
End Sub

[garik64]

А зачем макрос?
Поиск "^g", птичка на "выделить все".

[Sasha_Smirnov]

Макрос — это для развития темы!

Ваш способ тоже можно записать как макрос. Впрочем, он будет находить количество рисунков, вставленных ВНУТРЬ текста (так называемых InLineShapes — по щелчку они обрамляются рамкой с чёрными маркерами), но не найдёт «накладных» фигур (Shapes).

Оно и понятно: поиск работает только с текстом.