Re: [de-users] Re: Eingabe von Unicodezeichen via Tastatur und Code

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