OpenOffice.info

Verfasst: **Sa, 18.08.2007 10:39**

Hallo,

ich würde gerne meine Calc Dokumente per Makro ohne Schreibschutz öffnen.
Wenn ich sie so (mit schreibschutz) öffne, kommt keine Fehlermeldung und das Dokumet wird geöffnet.

Code: Alles auswählen

Sub Main
Dim sUrl1 as string
Dim myProps(0) as New com.sun.star.beans.PropertyValue

sUrl1 = convertToURL("C:\TestA.ods")

myProps(0).Name="ReadOnly"
myProps(0).Value = true
oDocument = StarDesktop.loadComponentFromURL(sUrl1, "_blank", 0, myProps() )
End Sub

Setze ich jedoch den ReadOnly Wert auf false kommt immer eine Fehlermeldung:

Code: Alles auswählen

Sub Main
Dim sUrl1 as string
Dim myProps(0) as New com.sun.star.beans.PropertyValue

sUrl1 = convertToURL("C:\TestA.ods")

myProps(0).Name="ReadOnly"
myProps(0).Value = false
oDocument = StarDesktop.loadComponentFromURL(sUrl1, "_blank", 0, myProps() )
End Sub

"URL seems to be an unsupported one"

Was mache ich falsch?

Verfasst: **Sa, 18.08.2007 10:53**

Ich glaube ich habe meinen Fehler gefunden, es lag einfach daran, dass ich das Dokument schon geöffnet hatte.

Simon

Verfasst: **Sa, 18.08.2007 11:23**

Hallo Simon,

simon hat geschrieben:Ich glaube ich habe meinen Fehler gefunden, es lag einfach daran, dass ich das Dokument schon geöffnet hatte.

Ganau so ist es.

Das kannst Du aber auch abfangen mit:

Code: Alles auswählen

Sub DokumentOeffnen
	Dim sUrl1 as string
	Dim myProps(0) as New com.sun.star.beans.PropertyValue
	sUrl1 = convertToURL("C:\Test.ods")
	myProps(0).Name="ReadOnly"
	myProps(0).Value = false
	On Error GoTo Failed
	oDocument = StarDesktop.loadComponentFromURL(sUrl1, "_blank", 0, myProps() )
	Failed:
    MsgBox "Die Datei ist bereits geöffnet"
End Sub

Viel Erfolg.

Jürgen

OpenOffice.info

Schreibschutz aufheben?

Schreibschutz aufheben?

Re: Schreibschutz aufheben?

Re: Schreibschutz aufheben?