Автор Тема: Word VBA Макросы. Как с помощью макроса узнать, есть ли в документе Word заданный стиль?  (Прочитано 187 раз)

Оффлайн Mike_B

  • Посетитель форума
  • Сообщений: 11
Как с помощью макроса узнать, есть ли в документе Word заданный стиль?

Оффлайн Администратор

  • Administrator
  • Сообщений: 2029
Результат выводится в 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

Оффлайн Mike_B

  • Посетитель форума
  • Сообщений: 11