Abfrage ob Seitenvorlage bereits vorhanden

[mecki_45]

Hallo,
wie kann ich per Makro abfragen, ob eine bestimmte Seitenvorlage bereits vorhanden ist?

Dank im voraus


Grüßle
Alex

[Niels]

Versuch doch die Datei einfach zu öffnen. Wenn Du auf einen fehler kommst, dann ist sie noch nicht da. Hier mal völlig ungetestet, nur so mal schnell gepostet meine Idee:

Code: Alles auswählen

function Datei_da (Datei as String) as Bolean
on error goto nichtda
DateiNr = freefile
Open WinDir Datei for input as DateiNr
Datei_da = true
Close #DateiNr
exit function
nichtda:
Datei_da = false
end function

Ciao
Niels

PS: Jetzt muss man nur noch ermitteln, wie der Vorlagenordner heißt, um diesen davor zu packen. Dass kann man sicher auslesen und wir brauchen nur noch den schlauen Geist, der es uns verrät. Poste ggf. mal im Basic-Forum, da trifft man solche netten Geister.

[Stephan]

Code: Alles auswählen

sub PageStyle_vorhanden
On Error Goto Fehler
Stardesktop.CurrentComponent.StyleFamilies.getByName("PageStyles").getByName("MeinStil")
Msgbox "Pagestyle vorhanden"
exit sub
Fehler:
Msgbox "Pagestyle nicht vorhanden"
end sub

@Niels
Dir ist aber schon klar das wir über Seitenvorlagen, und nicht Dokumentvorlagen, reden ... das wird nämlich etwas schwierig werden :

Versuch doch die Datei einfach zu öffnen. Wenn Du auf einen fehler kommst, dann ist sie noch nicht da.
...

Stephan

[Niels]

Dir ist aber schon klar das wir über Seitenvorlagen, und nicht Dokumentvorlagen, reden ... das wird nämlich etwas schwierig werden :

Stephan

Nö, war mir nicht klar, aber schön das Du mir das noch mal mitgeteilt hast. Da kann ich doch nur sagen siehe unten. Mein Spruch stimmt immer wieder.

Ciao
Niels