Solved: How to check if a Word Style exists

[markh1182]

Hi, I am trying to find if a style exists within the template in VBA so if it did exist I could call another sub.

I can do it this way:

Selection.Find.Style = ActiveDocument.Styles("_AG Green Highlight") 
Selection.Find.Execute 
If Selection.Find.Found = True Then 
    If ActiveDocument.Bookmarks.Exists("PerfectPitch_Merged") = False Then 
        Call PerfectPitchLoad 
    End If 
End If 

VBA tags courtesy of www.thecodenet.com

However, I know the style always exists in the template of the document, but isn't necessarily in use, therefore I need code to check if it exists, rather than if it is used.

Hope this makes sense and someone can help.

Mark

[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 

VBA tags courtesy of www.thecodenet.com

[markh1182]

thanks for your help I will give them a go.

I need the code because word is opened from an external website in this instance and therefore if it exists I want to run some code. However, when a user runs word normally, I don't always want to run the code if that makes sense.

Thanks, Mark