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
❤️ Helfen Sie noch heute, unser LibreOffice Forum zu erhalten! ❤️
>> Dank Ihrer Unterstützung -> Keine Werbung für alle registrierten LibreOffice-Forum User! <<
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗
Autotext
-
Schnewittchen
- Beiträge: 30
- Registriert: Mi 11. Mai 2011, 08:42
- Wohnort: Greifswald
An alle, die das LibreOffice-Forum gern nutzen und unterstützen wollen:
Bitte helfen Sie uns mit 7 Euro pro Monat.
Durch Ihren Beitrag tragen Sie dazu bei, unsere laufenden Kosten für die kommenden Monate zu decken.
Unkompliziert per Kreditkarte oder PayPal.
Als ein kleines Dankeschön werden Sie im LO-Forum als SUPPORTER gekennzeichnet.