Macros/de/Makros für Writer/Download To File/Gehe Zu Seite
Appearance
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