OpenOffice.info

:oops: :oops: :oops: :oops: :oops:
[quote="Stephan"]Dir ist aber schon klar das wir über Seitenvorlagen, und nicht Dokumentvorlagen, reden ... das wird nämlich etwas schwierig werden :wink: :

Stephan[/quote]
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

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

[code]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[/code]

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

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


Stephan

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

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]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
[/code]

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.

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

Dank im voraus


Grüßle
Alex