Seite 1 von 1
Öffnen einer Vorlagedatei mit einem Makro
Verfasst: Mi, 21.02.2007 11:25
von 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
Verfasst: Mi, 21.02.2007 12:19
von 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
Verfasst: Mi, 21.02.2007 13:45
von 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
Verfasst: Do, 22.02.2007 08:49
von 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
Verfasst: Do, 22.02.2007 18:06
von 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
Verfasst: Fr, 23.02.2007 02:31
von komma4
fiz hat geschrieben:lass dir mal per msgbox die URL anzeigen
????
verstehe ich leider nicht.
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
Verfasst: Fr, 23.02.2007 14:08
von fiz
Vielen Dank,
Probleme gelöst
Verfasst: Fr, 23.02.2007 17:30
von komma4
Wie hast Du es nun gelöst?
Woran lag es?
Verfasst: Mo, 26.02.2007 11:04
von 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