OpenOffice.info

Verfasst: **So, 21.10.2012 13:05**

Hallo Experten,

in einer Vorlage (*.ott) habe ich dies Makro

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

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: Alles auswählen

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

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

Verfasst: **So, 21.10.2012 13:17**

Hi, ohne es geprüft zu haben zwei Ideen:

Das Speichermakro sollte unter Meine Makros/Standard liegen.
Du must vermutlich die Ausführung von Makros zulassen.

Code: Alles auswählen

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

Gruß R

Verfasst: **So, 21.10.2012 13:27**

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

OpenOffice.info

[gelöst] Anpassen / Ereignisse rätselhaft

[gelöst] Anpassen / Ereignisse rätselhaft

Re: Anpassen / Ereignisse rätselhaft

Re: Anpassen / Ereignisse rätselhaft