Добрый день, помогите пожалуйста победить проблемудавно написал макрос для конвертации символов, успешно использовал годами до 3.2после наката версии 3.3 макрос стал аварийно валить райтервот макрос (лишнее сокращено, оставлена только проблемная часть)Цитироватьsub IASTSINH()Dim Doc As ObjectDim Replace As ObjectDoc=StarDesktop.CurrentComponentRe place=Doc.createReplaceDescriptorReplace .SearchString = "a"Replace.ReplaceString = Chr(&Hd82)Doc.replaceAll(Replace)end subмакрос должен заменить букву "а" на символ d82 (это сингальский знак анусвара, если не установлен шрифт будет квадратик пустой но это не важно)если в тексте просто буква "а" - то макрос работаетно если после "а" стоит пробел - вылетпопытки обойти проблему с промежуточной заменой пробела на что то третье - нормальных результатов не дали
|