1 Тема от Aleks

  • Aleks
  • майор
  • Неактивен
  • Зарегистрирован: 19.05.2014
  • Сообщений: 69
  • Поблагодарили: 21

Тема: Количество объектов (абзацев) с определенным стилем

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

Код вида работает, только больно мелено

For each paragraph in ActiveDocument.Patagraphs
if   paragraph.style=ActiveDocument.Styles("%Style_name%") then
i++
end if
next
msgbox i

Как можно подробное реализовать через .Count  ?

Заранее спасибо.

2 Ответ от Александр Б.

  • Александр Б.
  • генерал-майор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 16.02.2013
  • Сообщений: 275
  • Поблагодарили: 60

Re: Количество объектов (абзацев) с определенным стилем

Найти и заменить (CTRL+H)
-----------------------------------
Найти: ^p
Формат: Стиль: %Style_name%
------------------------------------
Заменить на: ^p
------------------------------------
Нажать кнопку "Заменить все"

P.S. Результат выдает мгновенно!

Мой шаблон/макросы для автоматической нумерации Word 2003, 2007, 2010 и т.д. (стили, названия, перекрестные ссылки, LISTNUM). Делюсь: http://vk.com/club_alex_bir

СайтАлександр Б.

3 Ответ от Aleks

  • Aleks
  • майор
  • Неактивен
  • Зарегистрирован: 19.05.2014
  • Сообщений: 69
  • Поблагодарили: 21

Re: Количество объектов (абзацев) с определенным стилем

Спасибо, Александр, но имелось в виду несколько другое.
Нужно значение для переменной в исполняемом коде, которое будет вычисляться в пределах макроса и использоваться далее (в следующей части макроса).

4 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: Количество объектов (абзацев) с определенным стилем

Aleks пишет:

Спасибо, Александр, но имелось в виду несколько другое.
Нужно значение для переменной в исполняемом коде, которое будет вычисляться в пределах макроса и использоваться далее (в следующей части макроса).

1. Вы уверенны что список стилей будет вычислятся только в области активного документа?

5 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: Количество объектов (абзацев) с определенным стилем

Aleks пишет:

Спасибо, Александр, но имелось в виду несколько другое.
Нужно значение для переменной в исполняемом коде, которое будет вычисляться в пределах макроса и использоваться далее (в следующей части макроса).

1. Вы уверенны что список стилей будет вычислятся только в области активного документа?

6 Ответ от Aleks

  • Aleks
  • майор
  • Неактивен
  • Зарегистрирован: 19.05.2014
  • Сообщений: 69
  • Поблагодарили: 21

Re: Количество объектов (абзацев) с определенным стилем

aap77, да я уверен что мне нужно это вычислить в области одного документа. Если когда-нибудь дойду до нескольких документов, применю последовательно к каждому необходимому документу.

7 Ответ от Drift3r

  • Drift3r
  • рядовой
  • Неактивен
  • Зарегистрирован: 09.12.2014
  • Сообщений: 5
  • Поблагодарили: 1

Re: Количество объектов (абзацев) с определенным стилем

Александр Б. пишет:

Найти и заменить (CTRL+H)
-----------------------------------
Найти: ^p
Формат: Стиль: %Style_name%
------------------------------------
Заменить на: ^p
------------------------------------
Нажать кнопку "Заменить все"

Что, если эту последовательность записать в макрос и подредактировать код? Останется только перехватить количество замен.

8 Ответ от Aleks

  • Aleks
  • майор
  • Неактивен
  • Зарегистрирован: 19.05.2014
  • Сообщений: 69
  • Поблагодарили: 21

Re: Количество объектов (абзацев) с определенным стилем

Drift3r, а вы можете сказать как устроить такой перехват?

Кстати, вы мне подали идею, надо просто искать нужные объекты поиском и "крутить счетчик", это должно отработать быстро.