OpenOffice.info

Hallo R,

die Benachrichtigung über Deine Antwort ist noch nicht bei mir angekommen, habe sie aber schon gelesen, weil ich gerade etwas nachtragen wollte:

es läßt sich überhaupt kein Makro ausführen, wenn ich über das o.a. Makro ein Dokument "starte", ich hatte es gerade mit einem *.odt, und nicht mit einer Vorlage versucht - ergab das gleiche Ergebnis.

Jetzt nach Einfügen des zusätzlichen Property klappt es.

Herzlichen Dank !

gruß
sven-my

dim p(1) as new com.sun.star.beans.PropertyValue
   p(0).Name = "Hidden"
   p(0).Value = false
   p(1).Name = "MacroExecutionMode"
   p(1).Value = 4

Hi, ohne es geprüft zu haben zwei Ideen:
[list][*]Das Speichermakro sollte unter Meine Makros/Standard liegen.
[*]Du must vermutlich die Ausführung von Makros zulassen.[/list]

[code]dim p(1) as new com.sun.star.beans.PropertyValue
p(0).Name = "Hidden"
p(0).Value = false
p(1).Name = "MacroExecutionMode"
p(1).Value = 4[/code]

Gruß R

sub Doc_speichern
	dim dummy()
	Doc = thisComponent
	lw = mid(CurDir,1,2)
	if lw = "C:" then lw = "E:"
	pfad = Lw & "\OpenOffice\Test\Test.odt"
	URL = ConvertToUrl(Pfad)
	Doc.storeAsURL(URL ,Dummy())
	Doc.store()
end sub

Sub Doc_oeffnen
	Dim oDocSrc1 as Object
	dim p(0) as new com.sun.star.beans.PropertyValue
	p(0).Name = "Hidden"
	p(0).Value = false
	lw = mid(CurDir,1,2)
	pfad = lw & "\Dokumente und Einstellungen\User\Anwendungsdaten\OpenOffice.org\3\user\template\Test\38 x 21.ott"
	oUrlSrc = convertToUrl(pfad)	
	oDocSrc1 = StarDesktop.loadComponentFromURL(oUrlSrc, "_blank", 0, p())		'Datei im Hintergrund öffnen
End Sub

Hallo Experten,

in einer Vorlage (*.ott) habe ich dies Makro
[code]sub Doc_speichern
dim dummy()
Doc = thisComponent
lw = mid(CurDir,1,2)
if lw = "C:" then lw = "E:"
pfad = Lw & "\OpenOffice\Test\Test.odt"
URL = ConvertToUrl(Pfad)
Doc.storeAsURL(URL ,Dummy())
Doc.store()
end sub[/code]
mit dem Ereigniss >Neues Dokument< verknüpft.

Wenn ich über 'Datei/Neu/Vorlagen....' ein neues Dokument erstelle, klappt es hervorragend.

Erzeuge ich aber mit diesem Makro, in einem anderen Dokument,
[code]Sub Doc_oeffnen
Dim oDocSrc1 as Object
dim p(0) as new com.sun.star.beans.PropertyValue
p(0).Name = "Hidden"
p(0).Value = false
lw = mid(CurDir,1,2)
pfad = lw & "\Dokumente und Einstellungen\User\Anwendungsdaten\OpenOffice.org\3\user\template\Test\38 x 21.ott"
oUrlSrc = convertToUrl(pfad)
oDocSrc1 = StarDesktop.loadComponentFromURL(oUrlSrc, "_blank", 0, p()) 'Datei im Hintergrund öffnen
End Sub[/code]
ein neues Dokument aus derselben Vorlage, wird das "Speicher-Makro" nicht ausgeführt.

Wo habe ich den Fehler eingebaut ? In einem Makro, oder in der Denkweise ?

gruß
sven-my