Ask Your Question

Revision history [back]

click to hide/show revision 1
initial version

Hi - you can record a macro like this:

sub DateJump

dim document   as object
dim dispatcher as object
dim args(1) as new com.sun.star.beans.PropertyValue

args(0).Name = "By"
args(0).Value = 1
args(1).Name = "Sel"
args(1).Value = false


document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args())
dispatcher.executeDispatch(document, ".uno:InsertCurrentDate", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args())
dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args())

end sub

Customize keyboard to assign the macro to your shorcut and use the shortcut to validate data entry in A

jump.ods

Hi - you can record a macro like this:

sub DateJump

dim document   as object
dim dispatcher as object
dim args(1) as new com.sun.star.beans.PropertyValue

args(0).Name = "By"
args(0).Value = 1
args(1).Name = "Sel"
args(1).Value = false


document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args())
dispatcher.executeDispatch(document, ".uno:InsertCurrentDate", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args())
dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args())

end sub

Customize keyboard to assign the macro to your shorcut and use the shortcut to validate data entry in A

jump.ods

[EDIT]

I edit my answer to be able to join a new version of the Jump.ods

Run DateJump macro in one of the "date" cols (sheet1 or sheet2).