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]