Поиск количества изображений

@Duykan · Регистрация: 19.05.2013

Author24 — интернет-сервис помощи студентам

Работаю над скриптом, который будет выравнивать все картинки в файле по центру.
Для создания нормального for'a необходимо узнать количество изображений в файле.
Подскажите как это возможно сделать?

Visual Basic

Sub Макрос1()
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^g"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub

Скрипт · 19.05.2013, 13:19

Visual Basic

Sub Procedure_1()
    
    '1. Количество рисунков, которые вставлены в абзац.
    'Вывод результата в View - Immediate Window.
    Debug.Print ActiveDocument.InlineShapes.Count
    
    '2. Количество обтекаемых рисунков.
    Debug.Print ActiveDocument.Shapes.Count
 
End Sub

@Duykan · 19.05.2013, 13:31 **[ТС]**

Спасибо!

@ikki · 19.05.2013, 15:40

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

Для создания нормального for'a необходимо узнать количество изображений

нет, не обязательно
существует такая конструкция, как for each ... in ...

@Ципихович Эндрю · 19.05.2013, 15:41

Сообщение от Скрипт

в абзац

ошибочка - в документ

Скрипт · 19.05.2013, 15:54

Ципихович Эндрю, рисунок может быть частью абзаца, как символ, а может свободно плавать по странице.

@Ципихович Эндрю · 19.05.2013, 18:11

Сообщение от Скрипт

ActiveDocument

я в курсе, Вы настаиваете что в абзаце?

@Duykan 0 / 0 / 0 Регистрация: 19.05.2013 Сообщений: 17
	19.05.2013, 13:31 [ТС]	3
	Спасибо! 0

@ikki призрак 3262 / 890 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	19.05.2013, 15:40	4
	Сообщение от Duykan Для создания нормального for'a необходимо узнать количество изображений нет, не обязательно существует такая конструкция, как for each ... in ... 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,722
	19.05.2013, 15:41	5
	Сообщение от Скрипт в абзац ошибочка - в документ 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	19.05.2013, 15:54	6
	Ципихович Эндрю, рисунок может быть частью абзаца, как символ, а может свободно плавать по странице. 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,722
	19.05.2013, 18:11	7
	Сообщение от Скрипт ActiveDocument я в курсе, Вы настаиваете что в абзаце? 0