Textrahmen per Makro einfügen

[Ketchup04]

Hallöchen.
Ich bin seit einigen Tagen auf der Suche nach dem richtigen Makro, allerdings finde ich nicht wirklich das, was ich suche.
Ich habe in OpenOffice Calc eine Datei erstellt mit meinem Inhalt. Ich möchte durch einen Button/Schaltfläche ein Textfeld/Textrahmen/Textbox einblenden und durch den selbigen Button wieder ausblenden.
Ich bin absoluter Neuling in OO, bitte habt Geduld...

Code: Alles auswählen

odocument=thiscomponent
oText = oDocument.Text
oCursor = oText.createTextCursor()
'Den neune Textrahmen als Objekt erstellen.
oFrame = oDocument.createInstance("com.sun.star.text.TextFrame")
'Weite und Höhe des Rahmen festlegen
oframe.width = 2000
oframe.height = 2000
'Position des Rahmen festlegen in 100/mm
oframe.HoriOrientPosition =2000
oFrame.VertOrientPosition = 2000
'Name festlegen
oframe.setname("RahmenName")
'Positionsvorgaben ausschalten ( siehe unten)
oFrame.HoriOrient = com.sun.star.text.HoriOrientation.NONE
oFrame.VertOrient = com.sun.star.text.VertOrientation.NONE
'Rahmen einfügen
oText.insertTextContent(oCursor, oFrame, FALSE)

Diesen Code habe ich von der Dannenhöfer Seite. Allerdings funktioniert er nicht. Er meldet mir bei der Zeile "oCursor = oText.createTextCursor()" - BASIC Laufzeitfehler - Eigenschaft oder Methode nicht gefunden: createTextCursor.

Könnt ihr mir irgendwie helfen? :/
Gruß


Edit: In dem Textrahmen soll natürlich ein bestimmter Text stehen.

[lorbass]

Diesen Code habe ich von der Dannenhöfer Seite.

Dort finde ich ihn im Kapitel 8. Text -Writer. Du willst ihn aber in einem Calc-Dokument ablaufen lassen. Ich fürchte, das kann nicht gut gehen.

Gruß
lorbass

[komma4]

Ich fürchte, das kann nicht gut gehen.

Ich bin sicher, dass kann nicht gut gehen