Zellenformatierung : nur Grossbuchstaben

[keksi1970]

hi,

ums kurz zu machen : wir geben Kennzeichen in eine bestimmte Zelle ein und moechten sie so formatieren, dass alle Buchstaben halt gross sind.

Möglich ?

lg
Andreas

[Karolus]

Hallo

hi,
ums kurz zu machen : wir geben Kennzeichen in eine bestimmte Zelle ein und moechten sie so formatieren, dass alle Buchstaben halt gross sind.

Möglich ?

Ja, zb. mit folgendem Code den du mit einer Tastenkombi, anstatt der enter-Taste zur Eingabebestätigung, verknüpfst.

Code: Alles auswählen

Sub enter_und_gross_schreiben
'Start Aufzeichnung
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "By"
args1(0).Value = 1
args1(1).Name = "Sel"
args1(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args1())
'Ende Aufzeichnung
thisComponent.currentselection().string = ucase(thisComponent.currentselection().string)

End Sub

Gruß Karo