BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Writer: Benutzerdefinierte und systemeigene Tastenkombinationen auslesen

Alles zur Programmierung im LibreOffice.
Antworten
DavidG
Beiträge: 195
Registriert: Do 22. Mär 2018, 21:41

Writer: Benutzerdefinierte und systemeigene Tastenkombinationen auslesen

Beitrag von DavidG » Mi 20. Feb 2019, 21:10

Hallo,

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
Gruß

David
___________________
WIN 10 PRO
LO 7.4.5.1 (x64)

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten