Makros und Tools

GotoParagraph

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

Basic

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

Basic

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