Nie ustawiono zmiennej obiektu

[hintmo]

Jest to przykład ze StarOffice Programmer’s Tutorial. Od siebie dałem tylko rozpoczęcie i zakończenie procedury.

Kod: Zaznacz cały

Sub tut
Dim oRectangleShape As Object
oRectangleShape = oCalcDocument.createInstance("com.sun.star.drawing.RectangleShape")
End Sub

Niestety czegoś nie dopisali i wywala mi

Kod: Zaznacz cały

Błąd uruchomieniowy języka BASIC.
Nie ustawiono zmiennej obiektu.

i wskazuje na linię

Kod: Zaznacz cały

oRectangleShape = oCalcDocument.createInstance("com.sun.star.drawing.RectangleShape")

Dlaczego ? I jak powinno to wyglądać, żeby zadziałało.

[belstar]

oCalcDocument

Co to jest, basic nie tego wie.
Powinno być:

Kod: Zaznacz cały

Sub tut
Dim oRectangleShape As Object
oRectangleShape = ThisComponent.createInstance("com.sun.star.drawing.RectangleShape")
End Sub