Macro for navigation between footnotes in LibreOffice to avoid bug in 4.2 - see http://ask.libreoffice.org/en/question/30323/how-to-navigate-between-footnotes-with-the-keyboard/?answer=51849#post-id-51849

Navigation.bas

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