Sub Kapitaelchen 'Werner Roth 'erstellt mit StarOffice 4.0 ServicePack 2 'funktioniert nicht 100% so wie z.B. + für Fett wegen 'untenstehender Einschränkung if Selection.Value = "" then 'Nur wenn nichts markiert ist, darf auf "CaseMap" geprüft werden, 'sind andernfalls Textteile mit unterschiedlichen "CaseMap"-Werten 'gekennzeichnet kommt die Fehlermeldung: "Unzulässiger Wert oder Datentyp" 'Togglen im laufenden Text: if Selection.Font.CaseMap = 4 then 'Wenn Kapitälchen (Weitere Auszeichnungen) eingeschaltet sind Selection.Font.CaseMap = 0 'schalt sie wieder aus else 'unter "Weitere Auszeichnungen" irgendwas anderes als Kaptälchen Selection.Font.CaseMap = 4 'umschalten auf Kapitälchen endif else 'Selektierten Text umformatieren Selection.Font.CaseMap = 4 endif End Sub