Hallo Michael, Michael-E. Voges schrieb: > läuft bei mir nicht: Fehlermeldung "Syntax"-Fehler beim ersten "then" > Basic mag "wert = ASC(..." nicht > Conf: OOo 2.0.1 de, Linux
Habe ich leider keine Vermutung. Ich habe es jetzt in OOo 1.9.104 unter Knoppix getestet und habe keine Probleme. Tritt das Problem denn immer auf, oder nur bei einem bestimmten Wort oder bestimmter Datei oder in einem bestimmten Zusammenhang? Wird der Fehler tatsächlich als Syntax(!)-Fehler gemeldet? (oder war "Syntax"-Fehler nur Synonym?) Welche Zeile ist markiert (in der IDE) wenn die Fehlermeldung kommt, die mit "Then" oder die mit "ASC"? Mache bitte Folgendes: Laß das Folgende Makro laufen und poste was die Meldungsfenster ausgeben und vermerke ob die Rückgabe für "buchstabe" und "ThisComponent.URL" (kompletter Pfad und Name der Datei) den erwarteten Werten entsprechen. 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 vc = dok.currentController.viewCursor Msgbox vc.Text.implementationName Msgbox buchstabe Msgbox ASC(buchstabe) MsgBox ThisComponent.URL End Sub > Apropos: bei den von OOo vorgegebenen Makros ist eines unter > "Gimmicks" > "ChangeAllChars", das läuft, den Code habe ich mir allerdings > noch nicht > angesehen. Das habe ich mir angesehen, der Austausch ist aber unspezifisch (immer x oder X) was mir nichts nützt, denn ich muß den konkreten Buchstaben feststellen. Da der Code den sichbaren Cursor nicht verschieben soll wäre es relativ unständlich das mit .uno:ChangeCaseToLower (Upper) zu machen, so das ich das nur tun würde wenn wir den Fehler nicht finden können. Gruß Jörg --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
