Date: prev next · Thread: first prev next last
2013 Archives by date, by thread · List index


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

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.