Ich öffne ein Textdokument starte den Recorder, drücke Stg+Pos1, beende den Recorder, der Dialog poppt auf, ich gebe einen gültigen Makronamen ein (z.B. “recorded_Strg_Pos1_Writer”) und wähle ein Modul in einer Bibliothek aus, z.B. Standard > Module1. In diesem ausgewählten Modul wird dann folgende Routine gespeichert:
Sub recorded_Strg_Pos1_Writer
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:GoToStartOfDoc", "", 0, Array())
End Sub
Gültige Makronamen bestehen nur aus Buchstaben, Ziffern und Unterstrich.
Der obige Code funktioniert mit Writer. Für Calc müsstest Du das nochmal Wiederholen.