[Libreoffice-ux-advise] [Bug 88947] : Macros disabled by 4.403

https://bugs.documentfoundation.org/show_bug.cgi?id=88947

--- Comment #6 from Niklas Johansson <sleeping.pillow@gmail.com> ---
Sorry for not paying attention to the details. Personally I'd prefer to see
that the commands I mentioned in Comment 4 would act the way that you prefer. I
mean if I want to go to the start of the next/previous page I want it to be
shown at the top of the viewport and not at the center as the case is now.

About your code snippet, you should get the same results using the following.

Sub PgDn
    doDispatch ".uno:ScrollToNext", Array()
End Sub

Sub PgUp
    doDispatch ".uno:ScrollToPrevious", Array()
End Sub

Function doDispatch(sUnoCmd As String, Args As Variant)
Dim oFrame As Object
Dim oDispatcher As Object
    oFrame = ThisComponent.CurrentController.Frame
    oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    oDispatcher.executeDispatch(oFrame, sUnoCmd, "", 0, Args)
End Function

Note however that the function you are using is depending on what type of
navigation object that is selected in the navigator so, you cannot be 100% sure
that the next object is the next page, it could just as well be the next table.
I'm sorry to say that I do not know how to select the object to navigate by
through basic.

-- 
You are receiving this mail because:
You are on the CC list for the bug.