Форум по VBA, Excel и Word

Как с помощью макроса узнать, есть ли в документе 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

спасибо