OpenOffice.info

@Winfried

Gelobe mich zu bessern :)

Bin etwas in Eile .. wie immer kam diese Anforderung wie Weihnachten .. völlig unerwartet, sodaß ich nicht die nötige Zeit habe/hatte intensiv zu forschen.

Also tausend Dank, dein Vorschlag mit FileExists ist wohl der richtige Weg!

Günter

Dim args(0) As New com.sun.star.beans.PropertyValue
	args(0).Name = "Overwrite"
	args(0).Value = FALSE

' check if such a file exist
If FileExists( ostoreUrl ) then
   ' yes there is one
   ' issue a message to inform user 
   msgbox "Dokument bereits vorhanden" & chr(13) & ostoreUrl , & _
	64 ,sMakroName & sMakroVersion
else
   thisComponent.storetourl(ostoreUrl,args())

End If

Mit meinem ersten Posting wollte ich nur auf den Widerspruch aufmerksam machen 8)

[quote="neandr"]es wird einfach drüber gebügelt[/quote]
Wenn Du das nicht willst, dann besetze Deine Eigenschaften-Variable [color=#008000]args[/color] (wozu wird die sonst deklariert?) einfach


[code]Dim args(0) As New com.sun.star.beans.PropertyValue
args(0).Name = "Overwrite"
args(0).Value = FALSE[/code]

Das ergibt aber einen Laufzeitfehler (wenn die Datei schon vorhanden ist)- den willst Du sicherlich auch nicht :lol:


Also prüfe vor dem Speichern-Versuch das Vorhandensein
[code]' check if such a file exist
If FileExists( ostoreUrl ) then
' yes there is one
' issue a message to inform user
msgbox "Dokument bereits vorhanden" & chr(13) & ostoreUrl , & _
64 ,sMakroName & sMakroVersion
else
thisComponent.storetourl(ostoreUrl,args())

End If[/code]
(kopiert aus meiner Makro-Kiste, nicht mit Deinem Code getestet!)

Ist es das, was Du wolltest**?



** Günter: bei den Postings ganz klar formulieren, WAS gewollt ist (ein Nicht-Überschreiben steht nämlich nirgends), dann bekommst Du auch gleich die richtigen Antworten. Und bitte IMMER OOo-Version und Betriebssystem angeben; Danke!

Auch wenn ich im Posting nur "storetourl" habe, ich hatte auch mit "storeAsUrl" versucht .. und gerade nochmal getestet. Leider mit beiden Funktionen das gleiche Verhalten ... es wird einfach drüber gebügelt :shock:

Und das ich auch bestimmt das richtige Makro benutze, habe ich die MsgBox Anzeige verändert .. und die Änderung wird auch angezeigt! Also irgendwas ist wohl noch falsch :?

[quote="neandr"] [code]thisComponent.storetourl(ostoreUrl,args())[/code]
dem Dialog "Speichern unter .. " entspricht [/quote]
Das ist falsch.
[url=http://api.openoffice.org/docs/common/ref/com/sun/star/frame/XStorable.html#storeToURL]storeToURL[/url] entspricht dem EXPORT-Verhalten.

Verwendest Du dagegen [url=http://api.openoffice.org/docs/common/ref/com/sun/star/frame/XStorable.html#storeAsURL]storeAsURL[/url] entspricht die Codierung dem "[color=#0040FF]Datei>Speichern unter...[/color]"

REM *** Zeige Ergebnis ***
    Dim iAntwort As Integer
    iAntwort = MsgBox("Doc speichern: " + ostoreUrl + "   Nächster Wert: " + (nValue +1), 1, "Speichern?")
    If iAntwort = 2 Then
        End
    End If

REM *** Speichern ***
    thisComponent.storetourl(ostoreUrl,args())

Noch 'n Bitte zur Einarbeitung in die Macro Technik.

Mit dem Beitrag http://de.openoffice.info/viewtopic.php?f=18&t=50608#p187791 wurde mir schon geholfen ein Writer Dokument zu speichern.
Ich hätte vermutet, das die Methode
[code]REM *** Zeige Ergebnis ***
Dim iAntwort As Integer
iAntwort = MsgBox("Doc speichern: " + ostoreUrl + " Nächster Wert: " + (nValue +1), 1, "Speichern?")
If iAntwort = 2 Then
End
End If

REM *** Speichern ***
thisComponent.storetourl(ostoreUrl,args())[/code]
dem Dialog "Speichern unter .. " entspricht und somit einen Fehler erzeugt, wenn für den erzeugten Dokumentnamen bereits eine Datei vorhanden ist. Leider ist das nicht der Fall. Sicher gibt's dafür einen Kniff.
Kann mir bitte jemand hier weiterhelfen.

Günter