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
|