Вы можете определить количество стилей, доступных в документе (при создании макроса VBA), используя свойство Count с объектом Styles. Это делается с использованием следующего синтаксиса:

x = ActiveDocument.Styles.Count

где x — это переменная, которую вы затем можете использовать в других строках макросов VBA. Обратите внимание, что эта функция указывает, сколько из них было определено, а не сколько из них фактически используется. Это означает, что учитываются и встроенные стили. Если вы хотите исключить встроенные стили, вы можете выполнить фактический итерационный подсчет стилей следующим образом:

x = 0 For Each objStyle in ActiveDocument.Styles     If Not objStyle.BuiltIn Then x = x + 1 Next objStyle

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13190) относится к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Determining_How_Many_Styles_are_Available [Определение количества доступных стилей].