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! 🎄
❤️ Nur noch wenige Tage, um das Ziel für 2025 zu erreichen. Vielen lieben Dank! ❤️
>> Das LibreOffice-Forum lebt von Ihnen – und von vielen Experten, die freiwillig ihr Wissen teilen.<<
Ihre Spende hilft, die Community offen, werbefrei (bei Registrierung) und lebendig zu halten. Vielen Dank!
🤗 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.