| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 10.3.26 GotoParagraph
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 |
Seitenanfang |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009