--> object variable not set
Must be something obvious - I don't see it.
Code: Select all
Option Explicit
sub Main
rem ----------------------------------------------------------------------
Dim oDoc As Object
Dim oText As Object
Dim oVCurs As Object
Dim oTCurs As Object
Dim ser As String
Dim i As Integer
oDoc = ThisComponent
oText =oDoc.getText()
Dim matrix as Variant
matrix = Array(_
Array("Bl.", "Blatt"),_
Array("Blü.","Blüte"),_
Array("-fg.", "-förmig"),_
Array("Fr.", "Frucht"),_
Array("Frkn.", "Fruchtknoten"),_
Array("Gr.", "Griffel"),_
Array("K.", "Kelch"),_
Array("Kbl.", "Kelchblatt"),_
Array("Kr.", "Krone"),_
Array("Krbl.", "Kronblatt"),_
Array("mehrj.", "mehrjährig"),_
Array("Pfl.", "Pflanze"),_
Array("St.", "Stängel, Stiel"),_
Array("Staubbl.", "Staubblatt"),_
Array("u.", "und"))
i = 0
For i= Lbound(matrix,1) To Ubound(matrix,1)
MsgBox (matrix(i, 0))
Next i