My code for this is:
Sub test_style_exists()
Dim test_style As String
test_style = "Quota"
MsgBox "Style " & test_style & " exists in " & ActiveDocument.Name & "?" & vbCr & _
style_exists(ActiveDocument, test_style)
End Sub
Function style_exists(test_document As Word.Document, style_name As String) As Boolean
style_exists = False
On Error Resume Next
style_exists = test_document.Styles(style_name).NameLocal = style_name
End Function
Any comments on using set MyStyle versus testing NameLocal?
Richard.