Hallo Jörg, Am Donnerstag, 2. Februar 2006 10:03 schrieb Jörg Schmidt: > Till Mendler schrieb: > > Gibt es eine Möglichkeit, Die Groß/Kleinschreibung des ersten > > Buchstaben > > eines Wortes mit einem Tastaturkürzel zu ändern > steht der Cursor innerhalb des betrffenden Wortes sollte das Folgende > das erledigen: > > Sub klein_gross() > dok = thiscomponent > textCursor = dok.text.createtextcursor() > viewCursor = dok.GetCurrentController.ViewCursor > textCursor.gotoRange(viewCursor,false) > textCursor.gotoStartofWord(False) > textCursor.goRight(1,True) > buchstabe = textCursor.String > if ASC(buchstabe)>64 AND ASC(buchstabe)<91 Then > wert = ASC(buchstabe)+32 > textCursor.String = CHR(wert) > end If > if ASC(buchstabe)>96 AND ASC(buchstabe)<123 Then > wert = ASC(buchstabe)-32 > textCursor.String = CHR(wert) > end If > End Sub läuft bei mir nicht: Fehlermeldung "Syntax"-Fehler beim ersten "then" Basic mag "wert = ASC(..." nicht Apropos: bei den von OOo vorgegebenen Makros ist eines unter "Gimmicks" "ChangeAllChars", das läuft, den Code habe ich mir allerdings noch nicht angesehen. Conf: OOo 2.0.1 de, Linux
Gruß Micha-E. --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
