рабочий макрос стал рушить райтер

Автор raudex, 5 августа 2011, 18:36

0 Пользователи и 1 гость просматривают эту тему.

raudex

Добрый день, помогите пожалуйста победить проблему
давно написал макрос для конвертации символов, успешно использовал годами до 3.2
после наката версии 3.3 макрос стал аварийно валить райтер

вот макрос (лишнее сокращено, оставлена только проблемная часть)

Цитироватьsub IASTSINH()
Dim Doc As Object
Dim Replace As Object
Doc=   StarDesktop.CurrentComponent
Replace=Doc.createReplaceDescriptor
Replace.SearchString = "a"
Replace.ReplaceString = Chr(&Hd82)
Doc.replaceAll(Replace)
end sub

макрос должен заменить букву "а" на символ d82 (это сингальский знак анусвара, если не установлен шрифт будет квадратик пустой но это не важно)
если в тексте просто буква "а" - то макрос работает
но если после "а" стоит пробел - вылет

попытки обойти проблему с промежуточной заменой пробела на что то третье - нормальных результатов не дали

RFJ

LibreOffice 3.4.2
OpenOffice 3.3.0 pro (Infra)

Эти офисы не падают.

raudex

#2
да в инфре всё в порядке спасибо