Hello Paul,

I actually liked this function quite a lot too so I created a couple of
macros that I then associated to the keyboard combination.
Some of the gurus here will be able to tell you how to do it properly, but
this code does the trick for me ;-)

Note though that also the functionality of moving up and down the paragraph
(currently associated with CTRL+UP andn CTRL+DOWN) is rather useful.

Sub subJumpToNextParagraph()
Dim oViewCursor ' the visible cursor
Dim oWorkCursor ' a cursor to move around the text
Dim oText

oViewCursor = thisComponent.getCurrentController().getViewCursor()
oText = oViewCursor.getText()

' create the work cursor and place it where the view cursor is
oWorkCursor = oText.createTextCursorByRange(oViewCursor.getStart())
' go to the beginning of the next paragraph
oWorkCursor.gotoNextparagraph(False)
oWorkCursor.gotoStartOfParagraph(False)
' move the visible cursor there
oViewCursor.gotoRange(oWorkCursor.getStart(False), False)
End Sub

On 05/10/05, Paul Belanger <[EMAIL PROTECTED]> wrote:
>
> I've been playing around with Open Office and am enjoying it. I'm so
> tired of dealing with Microsoft it's not funny. But, as I bounce around
> in a Text Document I'm finding a handy MS feature missing from your
> program. I use CTRL keys frequently and CTRL-UParrow & CTRL-DOWNarrow
> don't jump to the beginning of the paragraphs in question, depending
> upon direction. It's a nice way to quickly get somewhere needed. Keep up
> the great work!
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>

Reply via email to