После обновления с 3.0 на 3.1.1 перестал работать макрос

макрос на VBA, добавляющий в активную ячейку примечание отформатированного вида:Код:Sub AddNoteoCell = ThisComponent.getCurrentSelection()oNote = oCell.AnnotationoNote.String = "**"oNote.AnnotationShape.charFontNa me = "Times New Roman"oNote.AnnotationShape.charHeight = "8"oNote.AnnotationShape.charWeight = "200"oNote.AnnotationShape.FillStyle = 1oNote.AnnotationShape.FillColor = rgb( 204, 255, 255 )oFrameRect = CreateUnoStruct("com.sun.star.awt.Rectan gle")oFrameRect.X = oCell.Position.X + oCell.Size.Width + 600oFrameRect.Y = oCell.Position.Y + oCell.Size.Height - IIF(oCell.Position.Y + oCell.Size.Height > 400, 400, 0)oFrameRect.Width = 2900oFrameRect.Height = 500oNote.AnnotationShape.FrameRect = oFrameRectoNote.IsVisible = falseEnd Subработал в ОО 3.0 (заисключением установки шрифта и его размера). После перехода на 3.1.1 при попытке запуска выдает ошибку на строках oNote.AnnotationShape с ошибкой "Ошибка времени выполнения BASIC. Свойство или метод не найдены."почему так?! и как исправить?