Статьи из блога

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

Вопрос от пользователя 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

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

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

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

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us
Вы можете помочь в развитии сайта, сделав пожертвование:

Или помочь сайту популярной криптовалютой:

 

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

 

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

 

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

Яндекс Деньги: 410013576807538

 

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь!

Еще записи по вопросам использования Microsoft Word:

Комментариев: 3

  1. 12.02.2010 в 22:07 | #1

    Как оказалось можно обойтись и без макроса.

    Поместите в самый конец документа такое поле, которое создаст закладку с именем "КоличествоРисунков" и запишет в неё… количество нумерованных рисунков:

    { SET КоличествоРисунков { = { SEQ Рисунок }-1 } }

    После этого в любое место документа вы сможете добавить ссылку на эту закладку полем { REF КоличествоРисунков }. Таким образом, вы получите только количество рисунков с подписями.

    Как нетрудно догадаться, подобный фокус можно проделать и с любыми другими идентификаторами поля SEQ

  2. Джим Ренуар
    30.05.2013 в 10:44 | #2

    Все работает! Спасибо за макрос, еще вопрос - как научиться самому писать макросы, есть книга, учебник? на будущее, может ссылки кто даст

  3. Елена
    02.06.2015 в 17:21 | #3

    А макрос-то работает только, если не назначено для рисунка ОБТЕКАНИЕ ТЕКСТОМ!!!

Оставьте комментарий!

(обязательно)

^ Наверх