Все гениальное просто..
Если поиск вернет истину, значит есть.. 
вот такая вот функция универсальная получилась:
Function FindDocumentStyle(StlName As String) As Boolean
'
' Функция проверки существования текста, оформленного заданным стилем
' Возвращает TRUE, если такой текст найден, FALSE в противном случае
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="ВременнаяПоиск"
With Selection
.HomeKey Unit:=wdStory
With .Find
.ClearFormatting
.Style = ActiveDocument.Styles(StlName)
.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = True
End With
.Find.Execute
If .Find.Found = True Then
FindDocumentStyle = True
Else
FindDocumentStyle = False
End If
End With
Selection.GoTo What:=wdGoToBookmark, Name:="ВременнаяПоиск"
ActiveDocument.Bookmarks("ВременнаяПоиск").Delete
End Function
Спасибо за наводку! 
Отредактировано andrkar (07.05.2010 18:01:01)