Zwei Routinen die man mit einem Tastaturbefehl verknüpfen kann, um dann zwischen den Absätzen zu springen.

sub gotoNextParagraph

   Dim myDoc as Object

   Dim myViewCursor as Object

   Dim myTextCursor as object

   myDoc=thisComponent

   myViewCursor=myDoc.GetCurrentController.ViewCursor

   mytextCursor=mydoc.text.createtextcursor()

   mytextCursor.gotoRange(myViewCursor,false)

   mytextCursor.gotoNextParagraph(false)

   mytextCursor.gotoStartOfParagraph(false)

   myViewCursor.gotoRange(myTextCursor,false)  

end sub

sub gotoPreviousParagraph

   Dim myDoc as Object

   Dim myViewCursor as Object

   Dim myTextCursor as object

   myDoc=thisComponent

   myViewCursor=myDoc.GetCurrentController.ViewCursor

   mytextCursor=mydoc.text.createtextcursor()

   mytextCursor.gotoRange(myViewCursor,false)

   mytextCursor.gotoPreviousParagraph(false)

   mytextCursor.gotoStartOfParagraph(false)

   myViewCursor.gotoRange(myTextCursor,false)  

end sub