Word позволяет создавать стили, определяющие, как должен выглядеть текст в документе. Помимо полного списка встроенных стилей, Word позволяет создавать любые пользовательские стили, которые вам могут понадобиться. Позже вы можете распечатать таблицу стилей для своего документа, как описано в других выпусках WordTips.

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

Sub PrintCustomStyles()

Dim docThis As Document     Dim styItem As Style     Dim sUserDef(499) As String     Dim iStyleCount As Integer     Dim J As Integer

' Ref the active document     Set docThis = ActiveDocument

iStyleCount = 0     For Each styItem In docThis.Styles         'see if being used         If styItem.InUse Then             'make sure not built in             If Not styItem.BuiltIn Then                 iStyleCount = iStyleCount + 1                 sUserDef(iStyleCount) = styItem.NameLocal             End If         End If     Next styItem

If iStyleCount > 0 Then         ' Create the output document         Documents.Add

Selection.TypeText "User-defined Styles In Use"

Selection.TypeParagraph         For J = 1 To iStyleCount             Selection.TypeText sUserDef(J)

Selection.TypeParagraph         Next J         Selection.TypeParagraph         Selection.TypeParagraph     Else         MsgBox "No custom styles in use."

End If End Sub

Помните, что есть разница между «индивидуальными стилями» и «индивидуальными стилями». (Встроенный стиль может быть настраиваемым стилем, если вы измените характеристики стиля по умолчанию.) Этот макрос печатает список настраиваемых стилей; он полностью игнорирует те стили, которые Word считает встроенными.

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1530) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Printing_a_List_of_Custom_Styles [Печать списка пользовательских стилей].