Macros/de/Makros für Writer/Download To File/Gehe Zu Seite

Diese Makro öffnet eine Eingabzeile, in die die Seitennummer, auf die man gelangen möchte, eingetragen wird. Nach OK oder Enter Springt die Ansicht zur eingegebenen Seite

 REM *****  BASIC  *****

'Copyright (c): Autor unbekannt, übernommen von http://www.oooforum.org/forum/viewtopic.phtml?t=77509

'   This program is distributed in the hope that it will be useful, '   but WITHOUT ANY WARRANTY; without even the implied warranty of '    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '   GNU General Public License for more details.

'   Dieses Programm wird in der Hoffnung, dass es nützlich sein wird, aber '   OHNE JEDE GEWÄHRLEISTUNG, bereitgestellt; sogar ohne die implizite '   Gewährleistung der MARKTFÄHIGKEIT oder EIGNUNG FÜR EINEN BESTIMMTEN ZWECK. '   Siehe die GNU General Public License für weitere Details.

'--

Sub JumpToPage Dim oVC,max,sAns,p oVC = ThisComponent.CurrentController.getViewCursor oVC.jumpToLastPage max = oVC.getPage sAns = InputBox("Enter a page number.","Jump to page.") If sAns = "" then End ElseIf Not isNumeric(sAns) then JumpToPage EndIf p = CInt(sAns) If p = 0 Or p > max then MsgBox "No such page!" JumpToPage EndIf oVC.jumpToPage(p) End Sub