Am 29.01.2013 02:26, schrieb Andreas Borutta:
>
>> Ich benutze <Alt>+Code (auf dem Ziffernblock)
>
> Siehe meine andere Antwort:
> Meine Tastatur besitzt keinen Ziffernblock und auch eine Emulation via
> FN-Taste ist nicht möglich.
>
> OK, ich sehe schon.
> Das ist ein Betriebssystemproblem und keines von LO.
>
> Word bietet ein Kürzel:
> http://www.tippscout.de/word-sonderzeichen-ueber-unicode-eingeben_tipp_4123.html
>
> Hätte ja sein können, dass es sowas bei LO auch gibt.
Es sollte nicht allzu schwer sein, das als Makro nachzubilden. Hier
meine Lösung:
Sub UNICODE
Dim myAuswahl as Object
myAuswahl = ThisComponent.getCurrentSelection()
If IsNull( myAuswahl ) Then
MsgBox "Fehler: Objekt ""Auswahl"" = NULL"
Else
Dim myInhalt as Object
myInhalt = myAuswahl.getByIndex(0)
If IsNull( myInhalt ) Then
MsgBox "Fehler: Objekt ""Inhalt"" = NULL"
Else
Dim myCode as String
myCode = myInhalt.getstring()
If Len( myCode ) <> 4 Then
MsgBox "Fehler: Selektion ist nicht genau 4 Stellen lang"
Else
Dim myValue as Long
myValue = clng( "&H"&myCode )
If myValue = 0 Then
MsgBox "Fehler: Selektion ist kein Hexadezimalwert"
Else
myCode = Chr( myValue )
myInhalt.setstring ( myCode )
End If
End If
End If
End If
End Sub
Einbinden über 'Ansicht => Symbolleisten => Anpassen => Tastatur =>
Tastenkombinationen="ALT-C" => Bereich="Makros [...]" =>
Funktionen="UNICODE" => ÄNDERN(Button)'.
Wolfgang
--
--
Informationen zum Abmelden: E-Mail an users+h...@de.libreoffice.org
Probleme?
http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert
