Am 25.06.2021 um 06:39 schrieb Peter Weinreich:
Guten Morgen!
Gibt es Tastaturkürzel, um ihm Writer exakt eine Seite markieren zu
können, z.B. durch Springen an den Seitenanfang bzw. das Seitenende?
Lässt sich so etwas gegebenenfalls selbst erstellen in Form eines
Makros?
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
--