Seite 1 von 1
UI Language
Verfasst: Do 19. Sep 2013, 20:51
von blub
Hallo Leute,
Wie kann ich die aktive UI Language, also die Oberflächensprache, in Libre Office Basic abrufen?
Derzeit befinde ich mich im Writer.
Über ThisComponent oder Stardesktop bin ich bisher nicht dran gekommen.
Hätte jemand eine Idee?
Gruß
Kai
Re: UI Language
Verfasst: Do 19. Sep 2013, 21:16
von F3K Total
Hi,
vielleicht so:
Code: Alles auswählen
Sub S_Language_of_current_Document
oText = ThisComponent.Text 'Writer documents have a Text object
oCursor = oText.createTextCursor()
ocharLocale = ocursor.charLocale
sLanguage = ocharLocale.Language
sCountry = ocharLocale.Country
msgbox ("Sprache: " & sLanguage & CHR(13) &"Land: " & sCountry,64,"aktuelles Dokument")
End Sub
Gruß R
Re: UI Language
Verfasst: Do 19. Sep 2013, 21:53
von karolus
Hallo
@Rik
Das dürfte die Sprache des
Dokuments zurückgeben, nicht aber zwangsläufig die Spracheinstellung der
Benutzeroberfläche
zur Fragestellung - k.A.
Karolus
Re: UI Language
Verfasst: Do 19. Sep 2013, 21:57
von F3K Total
@Karolus,
genau, war mir bewußt, darum habe ich es in der Messagebox geschrieben und das Makro entsprechend benamst.
Gruß R
Re: UI Language
Verfasst: Fr 20. Sep 2013, 01:38
von balu
Hallo Leute,
wie die Oberflächensprache ausgelesen werden kann, weiß ich jetzt auch nicht auf die schnelle, hab da kein passendes Makro parat. Aber vielleicht hilft ja ein wenig folgender Link:
Optionen-OpenOffice.org: Ansicht Einstellungen auslesen
Gruß
balu
Re: UI Language
Verfasst: Fr 20. Sep 2013, 05:44
von F3K Total
Hi,
Balu's Link und damit komma4's Vorgehen angewendet, hat mich zu folgendem Code gebracht:
Code: Alles auswählen
Sub Get_System_Locale
GlobalScope.BasicLibraries.loadLibrary( "Tools" )
oRegistry_View = GetRegistryKeyContent("org.openoffice.Setup/L10N", FALSE )
msgbox ("UI Sprache: " & oRegistry_View.getByName("ooLocale"),64,"aktuelle System Einstellung")
End Sub
Gruß R
Re: UI Language
Verfasst: Fr 20. Sep 2013, 21:42
von blub
Yeah klasse. Genau das, was ich gebraucht hab.
Vielen Dank.
Hättest du noch nen Hinweis, wie du an den Key "org.openoffice.Setup/L10N" rangekommen bist? Fürs nächste mal.
Gruß
Kai
Re: UI Language
Verfasst: Fr 20. Sep 2013, 23:04
von F3K Total
Klar,
ich habe nur das
Vorgehen von komma4, auf das der Link von Balu oben zeigt, angewendet. Statt auf
Common.xcu bin ich in diesem Fall auf die Datei
registrymodifications.xcu gekommen.
Gruß R
Re: UI Language
Verfasst: Do 26. Sep 2013, 21:58
von blub
Alles klar.
Danke für die Hilfe.
Gruß
Kai