Wie alle Anfangsbuchstaben in große umwandeln?
Verfasst: Mo, 19.07.2010 14:59
Wo / wie kann ich alle Anfangsbuchstaben eines Dokuments / eines markierten Abschnittes / Satzes in Großbuchstaben (oder Kleinbuchstaben) umwandeln?
so eine Funktion ist in OOo nicht eingebaut. Für ein einzelnes Wort kannst du folgendes Makro verwenden:
Code: Alles auswählen
sub Majuskel
Dim oDoc as object : oDoc = ThisComponent
Dim oViewC as object : oViewC = oDoc.getCurrentController().getViewCursor()
Dim oTextC as object : oTextC = oDoc.text.createTextCursorByRange(oViewC)
oTextC.gotoStartOfWord(False)
oTextC.goRight(1, True)
Dim sAnf as String : sAnf = oTextC.getString()
sAnf = UCase(sAnf)
oTextC.setString(sAnf, True)
end subAlles Gute
matthias