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