Статьи из блога
Количество рисунков в документе: макрос
Вопрос от пользователя Bata:
Как указать кол-во используемых в тексте рисунков? Рисунки пронумерованы как Caption (SEQ Рисунок).
Я могу вам предложить следующий макрос для вставки в документ текста с указанием количества рисунков в текущем документе.
Установите курсор ввода в том месте документа, где вы хотите вставить текст с количеством рисунков и запустите макрос:
Sub picCount() 'Подсчет количества рисунков в документе (тип InlineShape) If ActiveDocument.InlineShapes.Count < 0 Then MsgBox "Рисунков типа InlineShape в документе не обнаружено", vbInformation Else Selection.TypeText Text:="Количество рисунков: " & ActiveDocument.InlineShapes.Count End If End Sub
Если вы не знаете, как подключить к документу и применить эти макросы, изучите следующие заметки с сайта:
Создание макроса из готового кода
Рубрика: Макросы, Вопрос-Ответ
Метки: макросы | рисунки
Просмотров: 23836
Подписаться на комментарии по RSS
Версия для печати
Метки: макросы | рисунки
Просмотров: 23836
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Абзац с цветным фоном
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Белый текст на синем фоне в Word 2007
- Быстрая смена ориентации страниц документа
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрый ввод текста с помощью команды =rand()
- Ввод повторяющихся фрагментов текста в Word 2007
- Ввод часто повторяющихся фрагментов текста
- Вертикальное выравнивание текста
- Возможно ли запретить копирование текста из документа Word?
- Вопрос о работе с графиками (диаграммами) в Word
- Вопросы и ответы о гиперссылках в редакторе Word
Форум
Читают
Обсуждают
страницы
сайты
статистика
Комментариев: 3
Как оказалось можно обойтись и без макроса.
Поместите в самый конец документа такое поле, которое создаст закладку с именем "КоличествоРисунков" и запишет в неё… количество нумерованных рисунков:
{ SET КоличествоРисунков { = { SEQ Рисунок }-1 } }
После этого в любое место документа вы сможете добавить ссылку на эту закладку полем { REF КоличествоРисунков }. Таким образом, вы получите только количество рисунков с подписями.
Как нетрудно догадаться, подобный фокус можно проделать и с любыми другими идентификаторами поля SEQ
Все работает! Спасибо за макрос, еще вопрос - как научиться самому писать макросы, есть книга, учебник? на будущее, может ссылки кто даст
А макрос-то работает только, если не назначено для рисунка ОБТЕКАНИЕ ТЕКСТОМ!!!