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. Ganz herzlichen Dank Wolfgang! :) Andreas -- http://borumat.de/libreoffice-writer-tipps -- Informationen zum Abmelden: E-Mail an [email protected] 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
