bin beim Programmieren darauf gestoßen, dass bei mir LibreOffice (7.6.7.2, Linux) bei sämtlichen Dokumenten (Writer, Calc, Draw) die
DocumentProperties.Language nicht gesetzt wird:
https://api.libreoffice.org/docs/idl/re ... rties.html
Bevor ich nun den Bugzilla bemühe, würde ich zunächst gerne klären, ob
- der Fehler (sollte nach meiner Ansicht nach gesetzt sein) nur bei mir auftritt
- jemand weiß, ob dies so gewollt ist
Code: Alles auswählen
Sub Documenttest()
Dim oDoc As Object
Dim oProps As Object
Dim aLocale As Variant
Dim sText As String
oDoc =ThisComponent
rem über die Properties
oProps =oDoc.getDocumentProperties()
sText ="Land: " & oProps.Language.Country & Chr(10) & "Sprache: "& oProps.Language.Language
msgBox sText, 0, "language"
rem oder wenn installiert mit xray (auskommentieren)
'aLocale =oDoc.DocumentProperties
'Globalscope.BasicLibraries.loadLibrary( "XrayTool" )
'xray(aLocale)
End Sub
Frankes