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

[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]

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