OpenOffice.info

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

Hallo,

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:
[url]https://api.libreoffice.org/docs/idl/ref/servicecom_1_1sun_1_1star_1_1document_1_1DocumentProperties.html[/url]

Bevor ich nun den Bugzilla bemühe, würde ich zunächst gerne klären, ob
[list]der Fehler (sollte nach meiner Ansicht nach gesetzt sein) nur bei mir auftritt[/list]
[list]jemand weiß, ob dies so gewollt ist[/list]

Zum Überprüfen:
[code]
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
[/code]

Vielen Dank für eure Mühe
Frankes