Sub SeiteMarkieren
'-------------------
Dim document As Object
Dim dispatcher As Object
' get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:GoToStartOfPage", "", 0,
Array())
dispatcher.executeDispatch(document, ".uno:GoToStartOfNextPageSel", "",
0, Array())
End Sub
Das Makro musst du z.B. in "Extras => Makros => Verwalten => Basic =>
Meine Makros => Standard => Module1" speichern, und kannst es dann in
"Extras => Anpassen => Tastatur => Bereich: Openoffice Makros => User =>
Standard => Module1 => Funktion: Seite markieren" auf die
Tastenkombination deiner Wahl ("... => Tastenkombinationen") legen;
und/oder in den Reitern "Menüs" oder "Symbolleisten" auf eben diese.
Der Eintrag "Meine Makros" wurde in "Anpassen" anscheinend übersehen zu
übersetzen.
Falls du weitere Bedürfnisse hast, diese Art von Funktionen finden sich
in "Extras => Anpassen => Tastatur => Bereich: Navigation". Wenn du
einen "Ablauf" mit mehreren Schritten benötigst, so wie hier die 2
Schritte Gehen und Markieren, legst du dir am einfachsten die einzelnen
Schritte auf je eine Tastenkombi, rufst dann "Extras => Makros =>
Aufzeichnen" auf, führst die Schritte in der gewünschten Reihenfolge
aus, klickst auf "Makro beenden", und du hast den Ablauf als Makro.
Anschließend solltest du aber die Zuordnung der Einzelschritte wieder
löschen, die bleiben sonst nämlich erhalten.
Wolfgang