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+unsubscribe@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