Заменить стиль абзаца
 

Господа, подскажите, плс, как правильно написать замену одного стиля на другой. Т.е. что-то типа такого:Код:Dim Doc As ObjectDim Replace As ObjectDim SrchAttributes(0) As New com.sun.star.beans.PropertyValueDim ReplAttributes(0) As New com.sun.star.beans.PropertyValueDoc = ThisComponentrem Заменяем стиль Основной текст на БазовыйSrchAttributes(0).Name = "ParaStyleName"SrchAttributes(0).Val ue = "Основной текст"ReplAttributes(0).Name = "ParaStyleName"ReplAttributes(0).Val ue = "Базовый"Replace = Doc.createReplaceDescriptorReplace.Searc hStyles=TrueReplace.SearchAll=TrueReplac e.SearchRegularExpression = TrueReplace.SearchString = ".*"Replace.ReplaceString = "&"Replace.SetSearchAttributes(SrchAttri butes())Replace.SetReplaceAttributes(Rep lAttributes())Doc.replaceAll(Replace)Тра бл в том, что в этом примере надо указывать Style.Name ("text body" и "standard"), а не Style.DisplayName ("Основной текст" и "Базовый").Мне же хочется указывать именно Style.DisplayName. Как это сделать?