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

An Andreas Borutta:

Hallo Andreas:

Anfrage Unten:


Am 29.01.2013 10:48, schrieb Andreas Borutta:
> Wolfgang Jäth schrieb:
>
> > 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
> Dein Makro funktioniert perfekt.

Und in welche Umgebung hast Dur das eingebunden ?


> Ganz herzlichen Dank Wolfgang! :)
>
>
> Andreas
Alles Gute !
     JoLa


-- 
      Jost  Lange,  Dipl.-Ing.
    Dozent f. Gebäude-Technik AD
      Lektor f. EDV-Anwendungen
 59075 Hamm/Westf.  Eschstr. 1b 
       R + F: 02381 - 72838


-- 
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