Написал (очередной)
баг про Redim.
Следующий пример имеет практическое значение:
Sub RunRedim
Dim aPropertyValues(0) As New com.sun.star.beans.PropertyValue
ReDim aPropertyValues(5) As com.sun.star.beans.PropertyValue
Msgbox Ubound(aPropertyValues)
End Sub
Msgbox выдает 0. Версия LO 7.0.1.2 (в 6.4 так же).
Если написать Redim Preserve, то работает.
Следующий код выдает выдает ошибку: Индекс за пределами заданного диапазона:
Sub RunRedim2
Dim aPropertyValues() As com.sun.star.beans.PropertyValue
ReDim aPropertyValues(5) As com.sun.star.beans.PropertyValue
Msgbox Ubound(aPropertyValues)
End Sub
Наконец, следующий код работает выполняется нормально:
Sub RunRedim3
Dim aPropertyValues As com.sun.star.beans.PropertyValue
ReDim aPropertyValues(5) As com.sun.star.beans.PropertyValue
Msgbox Ubound(aPropertyValues)
End Sub