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 jetzt mit, unser LibreOffice Forum zu erhalten! 🙏
Mit Ihrer Spende sichern Sie den Fortbestand, den Ausbau und die laufenden Kosten dieses Forums. 🌱
🍀 Jeder Beitrag zählt – vielen Dank für Ihre Unterstützung!🍀
>> 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.