How to check if a Word Style exists

[TonyJollans]

If you know it always exists why do you need code to see if it exists?

 
Sub Test()
    MsgBox StyleExists("_AG Green Highlight") 
End Sub
 
Function StyleExists(StyleName As String) As Boolean
    Dim MyStyle As Word.Style
    On Error Resume Next
    ' maybe this ...
    Set MyStyle = ActiveDocument.Styles(StyleName)
    ' or maybe this ...
    ' Set MyStyle = ActiveDocument.AttachedTemplate.Styles(StyleName)
    StyleExists = Not MyStyle Is Nothing
End Function