Öffnen einer Vorlagedatei mit einem Makro

[fiz]

Hallo Leute,

Wie man eine Datei mittels Makro öffnet wird ja im Forum häufiger beschrieben.
Allerdings habe ich hier einen Spezialfall, mit dem ich nicht zurecht komme:

Ich möchte nämlich eine Vorlage als solche öffnen. Wenn ich die Datei test.ots mit dem üblichen Makro

Code: Alles auswählen

Dim myProp(0) as new com.sun.star.beans.PropertyValue
myProp(0).name="AsTemplate"
myProp(0).value = 0
url=converttourl("C:\Test.ots")
oDocument = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp() )

aufrufe öffnet sich natürlich ein Dokument "unbenant1"

Ich möchte allerdings aus einem bestimmten Grund direkt die Vorlage als ots zur Verfügung haben.

Ich habe auch schon versucht, die Datei als unbenannt1 zu öffnen und gleich darauf unter "Test.ots" wieder zu speichern. Da kriege ich aber den bezug nicht hin:
unbenannt1 wird geöffnet aber die Datei aus der heraus ich das Makro starte wird als "Test.ots" gespeichert und nicht die "unbenannt1".


hat jemandeine gute Idee zu meinem Problem?

fiz

[komma4]

Du hast die Eigenschaft schon im Codeteil:

Code: Alles auswählen

Dim DateiEigenschaft(0) As New com.sun.star.beans.PropertyValue

' Öffnen ALS VORLAGE ! ! ! 
DateiEigenschaft(0).Name = "AsTemplate"
DateiEigenschaft(0).Value = False

öffnet hier das Dokument als Vorlage

Grüsse vom Pool

[fiz]

Hallo Winfried,

vielen Dank für die schnelle Antwort,

Wenn ich Dich richtig verstanden habe sollte das Makro also so aussehen:

Code: Alles auswählen

sub editVorlage
Dim DateiEigenschaft(0) as new com.sun.star.beans.PropertyValue 
DateiEigenschaft(0).name="AsTemplate" 
DateiEigenschaft(0).value = False 
url=converttourl("P:/Test1.ots") 
oDocument = StarDesktop.loadComponentFromURL(url, "_blank", 0, DateiEigenschaft() )
end sub 

Leider bekomme ich die Fehlermeldung:

"URL seems to be a unsupported one"

Wo liegt das Problem?????

Gruß,
fiz

[Toxitom]

Hey fiz,

lass dir mal per msgbox die URL anzeigen. Offensichtlich stimmt etwas damit nicht.
Oder probier erst einmal den "/" in deinem Pfad durch den "\" zu ersetzen. Eine Pfadangabe mit Laufwerksbuchstaben weist auf ein Windowssystem hin, dann müsste es eigentlich der Backslash sein.
Könnte das Problem verursachen.

Viele Grüße
Thomas

[fiz]

Hallo Thomas,

lass dir mal per msgbox die URL anzeigen

????

verstehe ich leider nicht.

AUch der Trick mit dem Backslash klappt nicht.

Ich habe jetzt an einer anderen Stelle im Forum einen völlig anderen code gefunden, mit dem zumindest das öffnen der "unbenannt"-Datei klappt:

Code: Alles auswählen

sub öffnen
rem öffne Liste
Dim oDokument as Object
Dim sUrl as String
Dim Dummy()
sUrl = ConvertToURL("P:/Test.ots")
dokument = StarDesktop.loadComponentFromURL( sUrl , "_blank", 1, Dummy() )

end sub

gibt es hier auch eine Möglichkeit direkt die Vorlage zu öffnen?
Dann lasse ich nämlich den ersten Ansatz sausen

Gruß,

Markus

[komma4]

lass dir mal per msgbox die URL anzeigen

????

verstehe ich leider nicht.

Code: Alles auswählen

url=converttourl("P:/Test1.ots") 
msgbox url

wäre die Anweisung hier

Die Nachrichtenbox sollte dann wohl etwas anzeigen wie:
"file:///P:/Test1.ots" (geraten: kein Windows hier)


Die Meldung "...seems to be an unsupported one" ist eindeutig: die Datei gibt's nicht (Tippfehler?, nicht vorhandenes Laufwerk)

Öffnet sich -bei Deinem letzten Beispiel- ein neues Dokument aus Deiner Vorlage?

Mein Vorschlag:

Code: Alles auswählen

Sub AlsVorlage
Dim DateiEigenschaft(0) As New com.sun.star.beans.PropertyValue

' Öffnen ALS VORLAGE ! ! ! 
DateiEigenschaft(0).Name = "AsTemplate"
DateiEigenschaft(0).Value = False

url = ConvertToURL("p:\Test1.ots")
msgbox "Öffne nun Vorlage " & url
oVorlagenDok = StarDesktop.loadComponentFromURL(url,"_blank", 0, DateiEigenschaft())
End Sub

Gruss aus dem kalten Mainz - leider zurück vom Pool

[fiz]

Vielen Dank,

Probleme gelöst

[komma4]

Wie hast Du es nun gelöst?
Woran lag es?

[fiz]

Hallo Winfried,

letzten Endes läuft jetzt doch die erste Vaiante, mit Deinem Zusatz.

Die Fehlermeldung wurde dadurch verursacht, dass die Vorlage auf einem Netzwerklaufwerk liegt und aus mir nicht erfindlichen Gründen die Zugriffsrechte eingeschränkt waren (obwohl ich die Datei selbst kreiert habe )

Nochmals Danke

Ciao

Markus