von Stephan » So, 14.03.2021 12:00
...so gehts:
das selektiert einen Zellreich, aber positioniert keinen Cursor, wonach doch eigentlich gefragt war.
"mikeleb" der sich genau an dieser Stelle wohl unsicher (wie ich auch) und der augenscheinliche Grund das "mikeleb" fragte ist das das Selektieren eines Zellbereichs leicht machbar ist, das Positionieren des Cursors in Calc hingegen nicht unbedingt.
Da man Letzteres auch kaum braucht habe ich dafür nicht einmal einen 'nativen' Code greifbar, sondern würde mit dispatcher arbeiten. Das Folgende positioniert den sichtbaren Cursor ans Ende des Textes in Zelle A1 des aktiven Tabellenblatts:
Code: Alles auswählen
Sub Main
akt_blatt = ThisComponent.CurrentController.ActiveSheet
akt_zelle = akt_blatt.getCellRangeByName("A1")
ThisComponent.CurrentController.Select(akt_zelle)
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
End Sub
Bei Writer ist das Arbeiten mit dem Cursor hingegen etwas Tagtägliches, weswegen Du reichlich Beispiele dazu im Netz findest, z.B.:
http://www.dannenhoefer.de/faqstarbasic/cursor.html
http://www.dannenhoefer.de/faqstarbasic ... sorum.html
Gruß
Stephan
[quote]...so gehts: [/quote]
das selektiert einen Zellreich, aber positioniert keinen Cursor, wonach doch eigentlich gefragt war.
"mikeleb" der sich genau an dieser Stelle wohl unsicher (wie ich auch) und der augenscheinliche Grund das "mikeleb" fragte ist das das Selektieren eines Zellbereichs leicht machbar ist, das Positionieren des Cursors in Calc hingegen nicht unbedingt.
Da man Letzteres auch kaum braucht habe ich dafür nicht einmal einen 'nativen' Code greifbar, sondern würde mit dispatcher arbeiten. Das Folgende positioniert den sichtbaren Cursor ans Ende des Textes in Zelle A1 des aktiven Tabellenblatts:
[code]Sub Main
akt_blatt = ThisComponent.CurrentController.ActiveSheet
akt_zelle = akt_blatt.getCellRangeByName("A1")
ThisComponent.CurrentController.Select(akt_zelle)
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
End Sub[/code]
Bei Writer ist das Arbeiten mit dem Cursor hingegen etwas Tagtägliches, weswegen Du reichlich Beispiele dazu im Netz findest, z.B.:
http://www.dannenhoefer.de/faqstarbasic/cursor.html
http://www.dannenhoefer.de/faqstarbasic/WiegehtmanmitdemCursorum.html
Gruß
Stephan