Hallo Gerhard,

für Deine sehr umfassende Zeichen-Verwendung zweifellos eine optimale Lösung, ABER:

Wenn's nur ein paar Zeichen sind, dann sind diese kleinen (sehr einfachen) Makros - sie unterscheiden sich nur durch die Dezimalzahl in Chr(...) - durchaus optimal, denn

+ man benötigt keine extra spezielle Software.
+ sie funktionieren im Kontext LO mit WINDOWS, LINUX und MAC.

Grüße
Hans-Werner ;-))


------ Originalnachricht ------
Von "Dr. Gerhard Wedel" <gwe...@zedat.fu-berlin.de>
An users@de.libreoffice.org
Datum 28.11.2023 18:43:03
Betreff Re: [de-users] LO 7.6.3.2 und ALT 16

An alle Interessenten, die umfangreiche Sonderzeichen verwenden möchten, egal 
in welchem Anwenderprogramm,

Microsoft stellt für Windows (noch Version 10) ein Programm zur Verfügung, mit 
dem man bequem Tastaturbelegungen vornehmen kann, die man häufig braucht.

Microsoft Keyboard Layout Creator

Damit kann man auf der Basis eines Schriftfonts, der viel UniCode enthält, 
zusätzliche Tastaturbelegungen herstellen, wie schon der englische Name sagt: 
Keyboard Layout Creator. Die Belegungen erfolgen auf den beiden Ebenen AltGr + 
Taste, bzw. Shift + AltGr + Taste.

Allerdings muß bei der Anwendung jedesmal die neu hergestellte Tastatur aufgerufen 
werden. Bei Windows 10 mit <Windowsfenstertaste  plus Leertaste>. Angezeigt 
rechts unten auf der Basisleiste werden allerdings nur die fremdschriftlichen Symbole 
angezeigt, z.B. für Arabisch ع (erster Buchstabe für ʿArabī) oder Hebräisch עבר (für 
Ivri).

Die Einstellungen gelten dann unter dem Betriebssystem Windows für alle 
Schriftarten, die auf UniCode beruhen, und alle Anwendungs-Programme. Den 
Umfang des Schriftsatzes kann man am besten überprüfen, wenn man die Funktion 
Zeichentabelle aufruft, das ist in WINDOWS ein eigenes Programm.
z.B.:
- Courier hat nur einen 'einfachen'  Zeichensatz und die Funktion Unicode ist 
'ausgegraut', d.h. nicht vorhanden

- Courier New hat dagegen einen umfangreicheren Zeichensatz, den man sogar 
einzeln im Feld 'Zeichensatz' aufrufen kann

Ich verwende die von mir gemachten Einstellungen für ein umfangreiches Alfabet 
plus Sonderzeichen wie → ← für abngeleitete Schriftformen, besonders aber, um 
semitische Schriften wie Arabisch und Hebräisch in lateinische Umschriftzeichen 
umzusetzen. Das erfolgt nach internationalen Regeln, die allerdinsg in 
verschiedenen Ländern unterschiedlich verwendet werden.
Die Grundregel, die die Deutsche Morgenländischen Gesellschaft (DMG) verfolgt: 
ist ein Laut in fremdem Schriften und Sprachen wie Arabisch, Persisch und 
Hebräisch = ein Zeichen plus diakritisches, d.h. unterscheidendes, Zeichen.
Beispiele:
Arabisch ج ist im DMG System ğ, im Englischen j und früher dj
Arabisch خ ist im DMG System ḫ, im Englischen kh und in anderen Systemen auch 
ch.

Oft entstehen Mißverständnisse, wie beim arabischen Namen Ishaq, der wird 
(korrekt) Is-ḥāq und nicht Ischaq ausgesprochen. Das Mißverständnis kommt 
dadurch zustande, weil sh im Englische das deutsche sch vertritt.

Übrigens: Falls bei euch 'meine' arabischen und hebräischen Zeichen erscheinen, 
habt ihr Unicode eingestellt!
Arabisch und Hebräisch schreibe ich ebenfalls mit der Umschaltung 
<Windowsfenstertaste plus Leertaste>. Tipphilfen gibt die Bildschirmtastatur.

Sicherlich gibt es für LINUX und APPLE Maschinen ähnliche Programme, die eine 
'umständliche' Programmierung von Macros überflüssig machen.

ansonsten wünsche ich frohes Schaffen,
Gehard (Wedel)


Am 28.11.2023 um 17:38 schrieb OoOHWHOoO:
Hallo *,

wenn man öfters in WRITER spezielle Zeichen einfügen will, ist es nützlich, für 
jedes Zeichen ein kleines Makro zu schreiben und diese Makros mit bestimmten 
Tasten oder Tastenkombinationen zu verknüpfen.

Ich habe das für die Guillemet-Zeichen gemacht und die Makros mit den Tasten 
F2-F5 verknüpft. Funktioniert prima ...

' Guillemet: https://de.wikipedia.org/wiki/Guillemets
' Unicode  : http://www.unicode.org/charts/

' » = [Alt]+[0187] Ziffernblock {windows} = U+00BB {unicode} = 0187 {decimal}

Sub F2_Guillemet_RECHTS
Dim oVC As Object
oVC = ThisComponent.CurrentController.getViewCursor()
oVC.getText.insertString(oVC.getStart(),Chr(187),False)
End Sub

' « = [Alt]+[0171] Ziffernblock {windows} = U+00AB {unicode} = 0171 {decimal}

Sub F3_Guillemet_LINKS
Dim oVC As Object
oVC = ThisComponent.CurrentController.getViewCursor()
oVC.getText.insertString(oVC.getStart(),Chr(171),False)
End Sub

' › = [Alt]+[0155] Ziffernblock {windows} = U+203A {unicode} = 8250 {decimal}

Sub F4_Guillemet_EINFACH_RECHTS
Dim oVC As Object
oVC = ThisComponent.CurrentController.getViewCursor()
oVC.getText.insertString(oVC.getStart(),Chr(8250),False)
End Sub

' ‹ = [Alt]+[0139] Ziffernblock {windows} = U+2039 {unicode} = 8249 {decimal}

Sub F5_Guillemet_EINFACH_LINKS
Dim oVC As Object
oVC = ThisComponent.CurrentController.getViewCursor()
oVC.getText.insertString(oVC.getStart(),Chr(8249),False)
End Sub

Grüße
Hans-Werner ;-))


-- Liste abmelden mit E-Mail an: users+unsubscr...@de.libreoffice.org
Probleme? 
https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy
--
Liste abmelden mit E-Mail an: users+unsubscr...@de.libreoffice.org
Probleme? 
https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy

Antwort per Email an