ich möchte alle vorhandenen Tastenkombinationen (LibreOffice und Writer) mittels eines Makros in ein
Array einlesen und den Inhalt im Anschluß in eine Calc-Datei schreiben.
A) Spalte 1 = die Key-Konstante
B) Spalte 2 = wenn Key belegt, dann mit welcher Aktion verknüpft/ wenn nicht belegt, dann keine Angabe
Mittels MRI habe ich erfolglos versucht den passende Service für mein Vorhaben zu finden.
Dieser Code zeigt einen Teil meiner vielfältiger Versuche:
Code: Alles auswählen
REM ***** BASIC *****
Sub AllShortcuts
oSD=Stardesktop
' mri oSD
' ShortCut-Manager
oModuleCfgMgrSupplier = createUnoService("com.sun.star.ui.ModuleUIConfigurationManagerSupplier")
' mri oModuleCfgMgrSupplier
' oMod1 = createUnoService("com.sun.star.ui.ModuleUIConfigurationManager") 'Absturz
' oMod1 = createUnoService("com.sun.star.ui.ModuleUICommandDescription")
' oMod1 = createUnoService("com.sun.star.ui.GlobalAcceleratorConfiguration")
' oMod1 = createUnoService("com.sun.star.ui.ModuleWindowStateConfiguration") 'void
' oMod1 = createUnoService("com.sun.star.ui.UICommandDescription") 'void
' mri oMod1
oModuleCfgMgr = oModuleCfgMgrSupplier.getUIConfigurationManager("com.sun.star.text.TextDocument")
'mri oModuleCfgMgr
oWriterShortCutMgr = oModuleCfgMgr.getShortCutManager
' mri oWriterShortCutMgr
' REM Array mit den Shortcuts in ein neues Calc-Dokument schreiben
' ' Öffnen eines neuen Calc-Dokuments
' oDoc = StarDesktop.loadComponentFromURL("private:factory/scalc","_blank", 0, Array())
' ' Referenzierung der "Tabelle 1"
' oSheet = oDoc.Sheets(0)
' ' Referenz Range-Objekt (Zellbereich)
' oRange = osheet.getcellrangebyposition(0,2,1,2001)
'
' ' Array in Zellbereich schreiben
' oRange.setDataArray(mArr)
End Sub