openoffice-api mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Jörg Schmidt <joe...@j-m-schmidt.de>
Subject Re: read and set the option "Save URLs relative to file system"
Date Sun, 13 Sep 2015 19:07:27 GMT
Hello,

Thank you Regina, Thank you Tsutomu.

The following works:

Sub einstellung_pruefen()
	'Speichereinstellung prüfen
	Dim sNodePath As String
   	Dim oCP, oCUA
   	sNodePath = "/org.openoffice.Office.Common/Save/URL"
	Dim aProps(0) As New com.sun.star.beans.PropertyValue
	oCP = CreateUnoService("com.sun.star.configuration.ConfigurationProvider")
	aProps(0).Name = "nodepath"
	aProps(0).Value = sNodePath
	oCUA = oCP.createInstanceWithArguments("com.sun.star.configuration.ConfigurationAccess",
aProps)
   	If oCUA.FileSystem = False OR oCUA.FileSystem = False Then
   			config_warnung = CHR(13) & CHR(13) & "ACHTUNG:" & CHR(13) & "überprüfen
Sie die Einstellungen " & _
   				CHR(34) & "Extras-Optionen-Laden/Speichern-Allgemein --> URLs relativ..." &
CHR(34)
   		Else
   			config_warnung = ""
   	End If
End Sub



Greetings,
Jörg   


---------------------------------------------------------------------
To unsubscribe, e-mail: api-unsubscribe@openoffice.apache.org
For additional commands, e-mail: api-help@openoffice.apache.org


Mime
View raw message