von Karolus » Mi, 27.08.2008 20:23
Hallo
keksi1970 hat geschrieben: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
Hallo
[quote="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 ?
[/quote]
Ja, zb. mit folgendem Code den du mit einer Tastenkombi, anstatt der enter-Taste zur Eingabebestätigung, verknüpfst.
[code]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[/code]
Gruß Karo