Разработка технической документации и технические писатели Технические писатели и разработка технической документации технические писатели в Телеграм 

 obmen_soobsheniyami.png Чат для технических писателей 
 Зарегистрируйтесь
Страницы: 1
RSS
количество рисунков
 
Доброго времени суток!
У меня следующий вопрос: возможно ли посчитать количество рисунков по всему документу средствами word?
Например, есть возможность вставки поля количества страниц, а мне необходимо поле количества рисунков.
Конечно, можно и вручную посидеть посчитать, но документ довольно большой.
Заранее благодарю :)
 
В меню Вставка (Insert) в подменю Ссылка (Reference) выберите команду Название (Caption). Откроется диалоговое окно и в нем заполните:

Нажмите кнопку Автоназвание (AutoCaption). Откроется другое диалоговое окно, в котором вам следует выбрать тот объект, к которому нужно добавлять подпись. Для рисунков это будет Рисунок Microsoft Word (Microsoft Word Picture), для таблиц - Таблица Microsoft Word (Microsoft Word Table) и т.д.
Вы можете выбрать из списков поля Подпись (Use label) или поля Положение (Position) нужные вам значения. Если хотите, можете создать свои значения, нажав в этом окне на кнопку Создать (New Label).
Щелчок по кнопке Нумерация (Numbering) позволит вам выбрать стиль нумерации. По умолчанию используется стиль 1, 2, 3... Кроме того, вы можете включить в название объекта номер главы, в которой располагается данный объект.
Нажмите ОК для сохранения установок и закрытия окон.
Теперь, при вставке рисунка или таблицы, вместе с ними будет вставляться и подпись к ним, [b:2hzso7tw]с автоматической нумерацией.[/b:2hzso7tw]
Т.е последний рисунок и будет содержать количество всех рисунков)) в вашем документе.
Работаю по-старинке...
 
Явного поля (типа "Кол-во страниц") для рисунков нет.
Рисунки - внешние внедренные объекты любого вида (а не собственные элементы Worda), поэтому Word их не идентифицирует и не может подсчитать.

Один из вариантов решения проблемы был предложен выше.
Есть и другие способы,  зависящие от особенностей документа.
Например, если  название рисунков оформлять уникальным стилем, то количество рисунков можно подсчитать как количество  элементов текста с заданным стилем.
Если документ не содержит таблиц, то рисунки можно размещать в скрытую таблицу.  
Есть макрос, который подсчитывает кол-во таблиц в документе
(n=ActiveDocument.Table.Count),
тогда он подсчитает и кол-во рисунков.
Наверное, есть и много других способов.  
Я не думаю, что это настолько трудоемкий процесс, что его надо непременно автоматизировать.
 
Макрос — это для развития темы

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

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

Код:Sub ShapesAccontDim i As LongOn Error GoTo NotinlineDim claud As InlineShape    For Each claud In ActiveDocument.InlineShapes    i = i  1    Next claudMsgBox "InlineShapes quantity = " & i & _" in the ActiveDocument"Notinline: MsgBox _"Количество фигур " & ActiveDocument.Shapes.Count & "."End Sub
 
[code:1o8zl75a]Public Sub CountPic()
Dim count as long
Dim shp as Shape
Dim inshp as InlneShape
For each shp in ActiveDocument.Shapes
If shp.Tyhe = msoPicture Then
count = count + 1
End if
Next shp
For each inshp in ActiveDocument.InlneShapes
If inshp.Tyhe = msoPicture Then
count = count + 1
End if
Next inshp
MsgBox "Всего рисунков" & count
End Sub[/code:1o8zl75a]
Данный код позволяет посчитать вставленные в документ рисунки, если в проверку inshp включить проверку OLE объекта, то можно более точно определить количество рисунков
 
для какой версии подойдет?
Работаю по-старинке...
Страницы: 1
Читают тему