LibreOffice-Forum

Hallo, ich habe ein Problem mit diesem Code.
Sub Autotext_holen

Dim bez As String, kuerzel As String, bereich As String
Dim oAutoTextContainer As Object, oGroup As Object, oAutoText As Object, oEntry As Object

oDoc = ThisComponent
oViewCursor = oDoc.currentcontroller.getViewcursor()
oCursor = oDoc.Text.createTextcursorbyRange(oViewCursor)

bereich = Variable("Autotext_aktueller_Bereich", "") Hier weiß ich nicht, was falsch ist... Was muss ich ändern?
If bereich = "" Then
Beep
MsgBox "Bitte in der Variable 'Autotext_aktueller_Bereich' einen Autotextbereich festlegen!"
End If

If oViewCursor.String = "" Then
kuerzel = InputBox("Kürzel für Autotext eingeben!" & Chr(10) & _
"Aktueller Autotextbereich: " & bereich, "Autotext aus dem Bereich '" & bereich & "' holen")
If kuerzel = "" Then Exit Sub
kuerzel = UCase(kuerzel)
Else