https://bugs.documentfoundation.org/show_bug.cgi?id=88947
--- Comment #6 from Niklas Johansson <[email protected]> --- 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 the assignee for the bug.
_______________________________________________ Libreoffice-bugs mailing list [email protected] http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
