Word VBA Макросы. Как с помощью макроса узнать, есть ли в документе Word заданный стиль?

Автор Посетитель, 08 ноября 2021, 13:48

Посетитель

Как с помощью макроса узнать, есть ли в документе Word заданный стиль?

Администратор

Результат выводится в View - Immediate Window.

Sub Макрос()
   
    Debug.Print StyleIsExists("Обычный")

End Sub

Private Function StyleIsExists(StyleName) As Boolean

    Dim Style As Style
   
    On Error Resume Next
    Set Style = ActiveDocument.Styles(StyleName)
    On Error GoTo 0
    StyleIsExists = Not Style Is Nothing

End Function