deutsches Forum rund um Apache OpenOffice und LibreOffice
http://de.openoffice.info/
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
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
:Versuch doch die Datei einfach zu öffnen. Wenn Du auf einen fehler kommst, dann ist sie noch nicht da.
...
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.Stephan hat geschrieben:Dir ist aber schon klar das wir über Seitenvorlagen, und nicht Dokumentvorlagen, reden ... das wird nämlich etwas schwierig werden
Stephan