To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=50474
Issue #:|50474
Summary:|Goto page functionality
Component:|Word processor
Version:|OOo 2.0 Beta
Platform:|All
URL:|
OS/Version:|All
Status:|UNCONFIRMED
Status whiteboard:|
Keywords:|
Resolution:|
Issue type:|DEFECT
Priority:|P3
Subcomponent:|editing
Assigned to:|mru
Reported by:|vogella
------- Additional comments from [EMAIL PROTECTED] Wed Jun 8 02:44:11 -0700
2005 -------
Hello,
would be nice if you could add in the standard a functionality to jump to a
specific page, something like in emacs M-x goto-line <n> RET.
Can be done via basis, e.g. with the following, but it would be nice to have it
into the standard release.
Best regards, Lars
Sub PageMarker
target = Int(InputBox("Enter the target page number."))
oDoc = thisComponent
oVC = oDoc.CurrentController.getViewCursor
oTC = oDoc.Text.createTextCursor
oVC.gotoRange(oTC,false)
Do While oVC.getPage <> target
If NOT oTC.gotoNextParagraph(false) then 'Will return "false" if no move.
MsgBox "No such page"
End
EndIf
oVC.gotoRange(oTC,false)
Loop
oStart = oDoc.Text.createTextCursorByRange(oTC)
Do While oVC.getPage <> target + 1
If NOT oTC.gotoNextParagraph(false) then 'First paragraph could also be last.
oTC.gotoEndOfParagraph(false)
goto MarkIt
EndIf
oVc.gotoRange(oTC,false)
Loop
oTC.gotoPreviousParagraph(false)
oTC.gotoEndOfParagraph(false)
MarkIt:
oEnd = oDoc.Text.createTextCursorByRange(oTC)
REM as a test of code select the target page.
oVC.gotoRange(oStart,false)
oVC.gotoRange(oEnd,true)
End Sub
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
