Вы можете определить количество стилей, доступных в документе (при создании макроса 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 — самая популярная программа для обработки текстов в мире.) Этот совет (803) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

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