Just a problem with a little Inster-Text-Macro for OpenMath

[Lachsen]

I want to write a little Macro, which does nothing more than inserting the text "drarrow" at the current Cursor position - in OpenMath

I'm completly new to all this, so I read some documentations and tutorials. In one I found following script:

ssub DarausFolgt
Dim oDocument As Object
Dim oText As Object
Dim oViewCursor As Object
Dim oTextCursor As Object

oDocument = ThisComponent
oText = oDocument.Text
oViewCursor = oDocument.CurrentController.getViewCursor()
oTextCursor = oText.createTextCursorByRange(oViewCursor.getStart())

oText.insertString(oTextCursor, "drarrow", FALSE)
end sub

I tried it, but it didn't work out.
Instead the warning "Property or method not found" was displayed on this line:
oText = oDocument.Text

So it seems, that the OpenMath Dokument doesn't have any "Text"-Object.

So, how can I insert text in OpenMath with a macro?

Thanks for any help. ^^

Lachsen