Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
REM ***** BASIC *****
Sub Main
End Sub
Sub NavigateNextFootnote
Dim document as object
Dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:JumpToFootnoteArea", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:JumpToFootnoteOrAnchor", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:JumpToNextFootnote", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:JumpToFootnoteArea", "", 0, Array())
End Sub
Sub NavigatePrevFootnote
Dim document as object
Dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:JumpToFootnoteArea", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:JumpToFootnoteOrAnchor", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:JumpToPrevFootnote", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:JumpToFootnoteArea", "", 0, Array())
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.