OpenOffice.info

...
dim apfad()
apfad() = split(thiscomponent.url ,"/")
apfad(ubound(apfad())) = ""
pfad = convertfromurl(join(apfad(),"/")) & "playVid.sh"

	shell(pfad & " "& "deine.avi",2)

Hallo
Versuch mal:
[code]...
dim apfad()
apfad() = split(thiscomponent.url ,"/")
apfad(ubound(apfad())) = ""
pfad = convertfromurl(join(apfad(),"/")) & "playVid.sh"

shell(pfad & " "& "deine.avi",2)
[/code]

Gruß Karo

REM  *****  BASIC  *****
Sub Main
	shell("~/pfad/zu/Skript/und/ODPdatei/playVid.sh 25.avi",2)
End Sub

REM  *****  BASIC  *****
Sub Main(filename as STRING)
	dim pfad as STRING
	pfad=dirname(currentPresentationFile)
	shell(pfad+" "+filename,2)
End Sub

HI!
Ich habe drei Fragen zu open Office Makros:

1) Kann ich nur bestimmte Makros zulassen? Ich muss fuer ein Makro die geringste Sicherheitsstufe einstellen, damit es lauft. ich wuerde aber gerne jedesmal bei start der Datei gewarnt werden, dass makros enthalten sind, und gefragt werden, ob das ausfuehren erlaubt ist. (in der Regel moechte ich das nicht!)

2) Kann ich an ein OpenOffice Makro Parameter uebergeben?

3) Wie kann ich in einem OpenOffice Makro den Speicherort der Datei ermitteln, von der aus der das Makro aufgerufen wird? Der Pfad ist naemlich identisch mit dem Skript PlayVid.sh , das ich in dem Makro aufrufen moechte.

derzeit sieht das Makro folgendermassen aus?
[code]
REM ***** BASIC *****
Sub Main
shell("~/pfad/zu/Skript/und/ODPdatei/playVid.sh 25.avi",2)
End Sub
[/code]
Ich wuerde gerne so etwas draus machen wie:
[code]
REM ***** BASIC *****
Sub Main(filename as STRING)
dim pfad as STRING
pfad=dirname(currentPresentationFile)
shell(pfad+" "+filename,2)
End Sub
[/code]
Ich bin aber leider Komplett aufgeschmissen, da ich die BASIC-funktionen nicht kann und kenne.

Ich hoffe mir kann jemand den Einstieg erleichtern.

Gruesse