Doc.replaceAll (ReplaceDesc)

При поиске через Doc.createReplaceDescriptor, почему-то не воспринимается имя стиля параграфа:Код:Sub AddPointToEndOfParagraphrem проставляем точки в конце абзацевDim Doc As ObjectDim ReplaceDesc As ObjectDim FindAttributes(0) As New com.sun.star.beans.PropertyValueDoc = StarDesktop.CurrentComponentReplaceDesc = Doc.createReplaceDescriptorReplaceDesc.S earchString="[а-я]$"ReplaceDesc.ReplaceString = "&."ReplaceDesc.SearchRegularExpress ion = TrueReplaceDesc.SearchCaseSensitive = FalseReplaceDesc.SearchStyles = TrueReplaceDesc.SearchAll=TrueFindAttrib utes(0).Name = "ParaStyleName"FindAttributes(0).Val ue = "Базовый"ReplaceDesc.SetSearchAttributes (FindAttributes())Doc.replaceAll(Replace Desc)MsgBox "Точки в конце обычных параграфов проставлены"end subВот эти атрибуты не воспринимаются программой - FindAttributes(0).Name = "ParaStyleName"FindAttributes(0).Val ue = "Базовый"И точки ставит в конце параграфов H1,H2 и т.д.Это ошибка OpenOffice Basic?У меня OpenOffice.org 2.2.0 из Ubuntu 7.04