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