OpenOffice.info

[quote]Das verstehe ich nun wiederum nicht. Wieso ist das Dokument bereits geschlossen, wenn das Ereignis stattfindet?[/quote]

Entschuldigung, das war falsch von mir daher geredet. Gemeint war das zu dem Zeitpunkt wo das Makro gestartet wird (durch das unter Extras-Apassen gewählte Ereignis dass Du genannt hattest) das Schließen des Dokuments bereits eingeleitet ist und nicht mehr aufgehalten werden kann.

[quote]Ich möchte einfach nur das Dokument ohne jede Nachfrage schließen, wenn wenn ich den Button "Schließen" in der Menüleiste, das Kreuz "Schließen" oben rechts in der Titelzeile oder unter "Datei > Schließen" anklicke - mehr nicht.[/quote]

Das hättest Du nur auch gleich in Deinen ersten Post schreiben sollen.



Gruß
Stephan

Ich bin nicht Stephan :lol: aber egal, Hauptsache es funzt!
Gruß R

Hallo Stephan,
danke für deine Geduld und deine Lösung - [b]funktioniert bestens![/b]
[attachment=0]LO_CloseDoc-03.ods[/attachment]
Gruß Gerd

Sub CloseDoc
	Dim oDoc As Object
	oDoc = thisComponent
	if oDoc.isModified then oDoc.Modified = false
End Sub

Sub CloseDoc
	Dim oDoc As Object
	oDoc = thisComponent
	odoc.store'->bewirkt .modified=false
End Sub

Also,
du möchtest das Dokument ohne Nachfrage schließen, was wiederum bedeutet, dass du bei Änderungen nicht darauf hingewiesen werden wirst.
Damit keine Abfrage zum Speichern kommt, musst du dem Dokument nur die Eigenschaft .modified = false zuordnen:
[code]Sub CloseDoc
Dim oDoc As Object
oDoc = thisComponent
if oDoc.isModified then oDoc.Modified = false
End Sub[/code] Geschlossen wird es ohnehin über den Button.
Wenn du das Dokument doch speichern möchtest, geht
[code]Sub CloseDoc
Dim oDoc As Object
oDoc = thisComponent
odoc.store'->bewirkt .modified=false
End Sub[/code]
Gruß R

Hallo Stephan,
irgendwie reden wir aneinander vorbei.
[quote]Ich verstehe auch nicht was es für einen Sinn hat ein Makro das nur die Aufgabe hat ein Dokument zu schließen bei dem Ereignis zu starten das stattfindet wenn das Dokument bereits geschlossen wird.[/quote]
Das verstehe ich nun wiederum nicht. Wieso ist das Dokument bereits geschlossen, wenn das Ereignis stattfindet? Hat das mit der Schaltfläche "CloseDoc" zu tun? Die habe ich nur als Test eingefügt und wird in der Endversion nicht vorhanden sein.

Ich möchte einfach nur das Dokument [b][u]ohne jede Nachfrage[/u][/b] schließen, wenn wenn ich den Button "Schließen" in der Menüleiste, das Kreuz "Schließen" oben rechts in der Titelzeile oder unter "Datei > Schließen" anklicke - mehr nicht. Dazu habe ich dem Ereignis "Dokument wir geschlossen" das Makro zugewiesen.
Vielleicht sollte die Datei vorher in dem Makro noch gespeichert werden.

Gruß Gerd

Sub CloseDoc(event)
	On Error Goto fehler

	If event.Source.Model.Label = "Close Doc" Then
	
		Dim oDoc As Object
		oDoc=thisComponent
	
		oDoc.close(true)				'schließen ohne Nachfrage
	End If
	Exit Sub
	
	fehler:
	
End Sub

[quote] Jetzt meldet sich beim Betätigen des Button oder bei Datei > Schließen nicht mehr das FatalError-Fenster sondern die Dokumentenwiederherstellung. ???[/quote]

Na eigentlich doch klar, denn die ursprüngliche Meldung hiess ja (auch ohne das ich sie genau zuordnen konnte) das ein Fehler stattfindet, wenn Du nun mittels "true" das .close erzwingst tritt dieser Fehler auch konkret in Erscheinung und der Fehler bewirkt im Konkreten offensichtlich das LO abstürzt.

[quote]Warum? [/quote]

Weil der Code in Ordnung ist.


Ich verstehe auch nicht was es für einen Sinn hat ein Makro das nur die Aufgabe hat edin Dokument zu schliessen bei dem Ereignis zu starten das stattfindet wenn das Dokument bereits geschlossen wird.

Wenn das trotzdem so gemacht werden soll, dann fange meinethalben den Fehler ab indem Du das Makro wie folgt formulierst (wahrscheinlich gibt es noch andere ggf. bessere Varianten):

[code]Sub CloseDoc(event)
On Error Goto fehler

If event.Source.Model.Label = "Close Doc" Then

Dim oDoc As Object
oDoc=thisComponent

oDoc.close(true) 'schließen ohne Nachfrage
End If
Exit Sub

fehler:

End Sub

[/code]

Gruß
Stephan

Hallo Stephan,
"Makroverknüpfung" ist so gemeint: Unter Extras > Anpassen > Ereignisse > habe ich dem Ereignis "Dokument wir geschlossen" das Makro [b]zugewiesen[/b].
Im Makro CloseDoc habe ich close(false) in close(true) geändert. Jetzt meldet sich beim Betätigen des Button oder bei Datei > Schließen nicht mehr das FatalError-Fenster sondern die Dokumentenwiederherstellung. ???

In der angehängten Datei habe ich mal eine Schaltfläche eingefügt, die bei Ereignis „Aktion ausführen“ das Makro CloseDoc ausführt.
Das funktioniert so, wie es soll! Warum?
[attachment=0]LO_CloseDoc-02.ods[/attachment]
Gruß Gerd

Also ich kann den Fehler nicht nachvollziehen (LO 6.2.5 Windows), aber wahrscheinlich gibt es einige Randbedingungen die Du nicht explizit genannt hast. Mich macht z.B. das Wort "Makroverknüpfung" stutzig, was meint das?

Eher ungewöhnlich [color=#FF0000](*)[/color] ist das "falls" bei .close. Weil ich den Kommentar sehe, will ich auf jeden Fall darauf hinweisen das false, an dieser Stelle, nicht etwa bewirkt das keine Speichern-Nachfrage kommt, die käme bei true genauso wenig.
True/false stehen an dieser Stelle dafür das bei True auf jeden Fall das Dokument geschlossen wird, bei false hingegen wird Rücksicht auf andere Prozesse genommen die u.U. noch im Hintergrund aktiv sind und im Zusammenhang mit dem Dokument stehen. (Ich hoffe LO hat nicht auch an dieser Stzelle wieder etwas am API geändert wovon ich dann bisher nichts weiß.)

[size=85]
[color=#FF0000](*)[/color]
Wenn ich das schreibe so heißt es nicht falsch. Es ist jedoch so das bei sauberer Programmierung "true" immer passen sollte und "false" in Praxis fast nie vorkommt. [/size]

Die Fehlermeldung sagt mir leider nichts.



Gruß
Stephan

Hallo an Alle,
ich habe in der Datei (s. Anlage) eine Makroverknüpfung, die beim Schließen der Datei ausgeführt werden soll, eingebaut. Beim Schließen der Datei erhalte ich eine Fehlermeldung "Fatal Error".
Kann mir jemand auf die Sprünge helfen, was da faul ist? Nähere Erläuterungen stehen in der angehängten Datei.
[attachment=0]LO_CloseDoc-01.ods[/attachment]
Danke & Gruß
Gerd