Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 8 ]
- Зарегистрирован: 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 ?
Заранее спасибо.
- Александр Б.
- генерал-майор
- Неактивен
- Откуда: Москва
- Зарегистрирован: 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
- Зарегистрирован: 19.05.2014
- Сообщений: 69
- Поблагодарили: 21
Re: Количество объектов (абзацев) с определенным стилем
Спасибо, Александр, но имелось в виду несколько другое.
Нужно значение для переменной в исполняемом коде, которое будет вычисляться в пределах макроса и использоваться далее (в следующей части макроса).
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
Re: Количество объектов (абзацев) с определенным стилем
Aleks пишет:Спасибо, Александр, но имелось в виду несколько другое.
Нужно значение для переменной в исполняемом коде, которое будет вычисляться в пределах макроса и использоваться далее (в следующей части макроса).
1. Вы уверенны что список стилей будет вычислятся только в области активного документа?
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
Re: Количество объектов (абзацев) с определенным стилем
Aleks пишет:Спасибо, Александр, но имелось в виду несколько другое.
Нужно значение для переменной в исполняемом коде, которое будет вычисляться в пределах макроса и использоваться далее (в следующей части макроса).
1. Вы уверенны что список стилей будет вычислятся только в области активного документа?
- Зарегистрирован: 19.05.2014
- Сообщений: 69
- Поблагодарили: 21
Re: Количество объектов (абзацев) с определенным стилем
aap77, да я уверен что мне нужно это вычислить в области одного документа. Если когда-нибудь дойду до нескольких документов, применю последовательно к каждому необходимому документу.
- Drift3r
- рядовой
- Неактивен
- Зарегистрирован: 09.12.2014
- Сообщений: 5
- Поблагодарили: 1
Re: Количество объектов (абзацев) с определенным стилем
Александр Б. пишет:Найти и заменить (CTRL+H)
-----------------------------------
Найти: ^p
Формат: Стиль: %Style_name%
------------------------------------
Заменить на: ^p
------------------------------------
Нажать кнопку "Заменить все"
Что, если эту последовательность записать в макрос и подредактировать код? Останется только перехватить количество замен.
- Зарегистрирован: 19.05.2014
- Сообщений: 69
- Поблагодарили: 21
Re: Количество объектов (абзацев) с определенным стилем
Drift3r, а вы можете сказать как устроить такой перехват?
Кстати, вы мне подали идею, надо просто искать нужные объекты поиском и "крутить счетчик", это должно отработать быстро.
Сообщений [ 8 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Количество объектов (абзацев) с определенным стилем
Студентам и преподавателям, офисным работникам, журналистам и писателям, редакторам, секретарям и менеджерам, а также очень многим другим людям каждый день приходится работать с огромными массивами текстов. На портале о Microsoft Office Word вы узнаете про: непереносимый пробел в word 2003.
Неоценимую помощь в этом оказывает программа Microsoft Word, самый мощный и популярный редактор текста. На портале о Microsoft Office Word вы узнаете про: как восстановить данные в ворде.
Ворд дает пользователю выбор, позволяя решать ту или иную задачу различными путями. О тонкостях работы с программой, способах оптимизации различных функций, преимуществах и недостатках различных настроек можно прочитать на форуме сайта Ворд Эксперт. Наш сайт о Microsoft Office Word даст ответ про: сортировка чисел.
На форуме Ворда вы сможете обсудить порядок написания макроса и создания шаблона, поговорить об отличиях различных версий Ворда, получить консультацию по возникшим проблемам и поделиться своими собственными наработками. На портале о Microsoft Office Word вы узнаете про: знак абзаца в word 2003.
Такие проблемы, как создание колонтитулов, удаление лишних абзацев и другие вопросы, с которыми обращаются довольно часто, вынесены в специальный подраздел. Наш сайт о Microsoft Office Word даст ответ про: как на foxit перевести в pdf.
Там же вы сможете ознакомиться со списком полезной литературы.
В отдельном подразделе обсуждаются настройки программы, пути форматирования и редактирования документов. На портале о Microsoft Office Word вы узнаете про: как отменить клавишу insert.
Следующий раздел посвящен автоматизации, там описывается создание шаблонов, макросов для различных операций, назначения горячих клавиш и другие способы сократить время и трудозатраты, работая в Ворде. Наш сайт о Microsoft Office Word даст ответ про: как на комкьютере написатьформулу воды.
Поделиться готовыми решениями можно в соответствующем подразделе, для создания заказов также выделена тема. Наш сайт о Microsoft Office Word даст ответ про: word.docx 2007 скачат.