OpenOffice.info

[quote="anonym"]Also doch![/quote]
Jetzt hab' ich's verstanden: Dir ging es um die Begriffsverwendung.

Mir ging es um das "[i]es hat etwas mit dem Betriebssystem zu tun[/i]"

PEACE: habe nur den Begriff aus der Dokumentation verwendet.
Semantisch hast [b]Du[/b] recht.

[quote="anonym"]Und es hat etwas mit dem Betriebssystem zu tun.[/quote]
nein.
[quote="anonym"]Deswegen verwendet OOo auf Win und nix URIs.[/quote]
nein.
Die API-Funktion verwendet URLs. Auch unter Mac

[quote="wega"]Das letztere war mir unbekannt, da es auch ohne funktioniert[/quote]In allen OOo-Versionen, in denen [u]ich[/u] bisher testete: nein!
Sonst erfolgt die Fehlermeldung: [i]URL seems to be an unsupported one[/i]
[vielleicht gibt es andere, fehlertolerante Kompilationen von OOo - kenne ich nicht]


[quote="anonym"]um Betriebssystemunabhängig zu
sein, im URL Format angegeben werden müssen:

file://Pfad_mit_wurzel_Slash[/quote]
Die Dokumentation verlangt eine URL-Notation, das hat nichts mit dem Betriebssystem zu tun.

Es müssen [b] [color=#0040FF]drei[/color] [/b][i]slahes[/i] sein.
[color=#008000]file://[/color] plus die root-Angabe [color=#008000]/home/wega/usw...[/color]

Auch bei Windows wird ein drittes [b]/[/b] verlangt
[color=#008000]file:///c:/windows/usw...[/color]

Dim myFileProp(1) As New com.sun.star.beans.PropertyValue

Du überschreibst mit der zweiten Setzung die [color=#008000]TEMPLATE[/color]-Angabe (wenn Du zweimal den Index 0 nimmst), deshalb hatte ich
[code]Dim myFileProp(1) As New com.sun.star.beans.PropertyValue[/code] geschrieben.

	myFileProp(0).Name = "AsTemplate"
	myFileProp(0).Value = false
	myFileProp(0).Name = "MacroExecutionMode"
    myFileProp(0).Value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN

Danke an Karolus und Winfried.

@ Hallo Karolus, die Anmerkung war richtig, der Pfad war nicht vollständig >> Asche auf mein Haupt <<
und converttourl fehlte auch. Das letztere war mir unbekannt, da es auch ohne funktioniert.
Wahrscheilich habe ich das etwas zu schlampig gehandhabt.

@ Hallo Winfried, die von dir genannte fehlende Eigenschaft hat das Ganze abgerundet. War mir garnicht bekannt.
Jetzt wird das anhängende Makro auch richtig ausgeführt.
Anmerkung:

[code]
myFileProp(0).Name = "AsTemplate"
myFileProp(0).Value = false
myFileProp(0).Name = "MacroExecutionMode"
myFileProp(0).Value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN
[/code]

Der Index bei myFileProp(n) muss auch auf "0" stehen, sonst kommt die Meldung "out of Range".

nochmals Dank an euch beide.

Gruß Werner

Dim myFileProp(1) As New com.sun.star.beans.PropertyValue
   oDesktop =   createUnoService("com.sun.star.frame.Desktop")
   sSourceFile = ConvertToURL( "/home/wega/.openoffice.org2/user/template/Quittung-Ferienwohnung.ots" )
   myFileProp(0).Name = "AsTemplate"
   myFileProp(0).Value = TRUE
   myFileProp(1).Name = "MacroExecutionMode"
   myFileProp(1).Value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN
' oder: wie über die MAKROSICHERHEIT-Einstellungen festgelegt
' com.sun.star.document.MacroExecMode.USE_CONFIG	

Anmerkungen:

Möchtest Du ein neues Dokument aus der Vorlage [[b]A[/b]: "normal [...] geht dies mit <Datei neu> < aus Vorlagen>"] erstellen oder [[b]B[/b]:] die Vorlage bearbeiten?
A: "[i][b]false[/b] loads the template document for editing[/i]", Link: [url=http://api.openoffice.org/docs/common/ref/com/sun/star/document/MediaDescriptor.html#AsTemplate]OpenProperties[/url]
B: [b]TRUE [/b]- oder weglassen, "[i]Loading a component of type "template" creates a new untitled document by default[/i]"



[quote="wega"]die Makros aktiviert[/quote]
Dafür benötigst Du eine weitere Eigenschaft:[code]
Dim myFileProp(1) As New com.sun.star.beans.PropertyValue
oDesktop = createUnoService("com.sun.star.frame.Desktop")
sSourceFile = ConvertToURL( "/home/wega/.openoffice.org2/user/template/Quittung-Ferienwohnung.ots" )
myFileProp(0).Name = "AsTemplate"
myFileProp(0).Value = TRUE
myFileProp(1).Name = "MacroExecutionMode"
myFileProp(1).Value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN
' oder: wie über die MAKROSICHERHEIT-Einstellungen festgelegt
' com.sun.star.document.MacroExecMode.USE_CONFIG [/code]


[quote="wega"]"_blank", [b][color=#FF0000]0[/color][/b],myFileProp()[/quote]
siehe: [url=http://api.openoffice.org/docs/common/ref/com/sun/star/frame/FrameSearchFlag.html]FrameSearchFlag[/url]
[quote]Using of this flag will do nothing. Use right combination of other flags instead of this one. [/quote]

Hallo
Da fehlt 'converttourl' und der Pfad ist offensichtlich unvollständig.
sSourceFile = [color=#FF0000]converttourl[/color]("[b][color=#00BF00]/home/wega[/color][/b]/.openoffice.org2/user/template/Quittung-Ferienwohnung.ots")
[color=#00BF00]Pfad anpassen ![/color]

Gruß Karo

sub quittung
	Dim myFileProp(0) As New com.sun.star.beans.PropertyValue
	oDesktop =   createUnoService("com.sun.star.frame.Desktop")
	sSourceFile = "/.openoffice.org2/user/template/Quittung-Ferienwohnung.ots"
	myFileProp(0).Name = "AsTemplate"
	myFileProp(0).Value = False
	oDocument = oDesktop.loadComponentFromURL( sSourceFile, "_blank", 0,myFileProp() )
end sub

Hallo zusammen,

ich möchte unter Linux mit Office-Basic ein Template aufrufen, an dem selbst wieder Makros angebunden sind.

Ganz normal unter Opfenoffice geht dies mit <Datei neu> < aus Vorlagen>. Damit wird aus dem Template ein Blankoabbild geschaffen, die Makros aktiviert und los gehts.

In meinem Fall habe ich mir ein Kontrollbutton eingebaut, das ich anklicke und damit die oben beschriebene Aktion auslöse.
Im nachfolgenden der von mir benutze Code:

[code]
sub quittung
Dim myFileProp(0) As New com.sun.star.beans.PropertyValue
oDesktop = createUnoService("com.sun.star.frame.Desktop")
sSourceFile = "/.openoffice.org2/user/template/Quittung-Ferienwohnung.ots"
myFileProp(0).Name = "AsTemplate"
myFileProp(0).Value = False
oDocument = oDesktop.loadComponentFromURL( sSourceFile, "_blank", 0,myFileProp() )
end sub
[/code]

Dieser Code erzeugt dann bei mir den folgenden Fehler:

"BASIC Laufzeitfehler
Es ist eine Exception aufgetreten
Type:com.sun.star.lang.illegalArgumentException
Message: URL seemsto bean unsupported one..

Wie geht es richtig?

mit Gruß
Werner