Makro: Datei unter mehreren Formaten abspeichern

[mikele]

Hallo,

da der dispatcher überflüssig ist, entfallen die Zeilen 5, 9 und 29.
Die Aufteilung der url in zwei Variablen hatt eich nur deshalb vorgenommen, um evtl.auch einen neuen Dateinamen vergeben zu können.
Im Unterschied zu "saveas" bleibt bei "storeto" die Originaldatei unverändert erhalten.
Anbei die überarbeitete Version.

[Mau]

Lieber mikele,

dann schmeiße ich die Zeilen raus und teste den Makro mal.

Danke!

[mikele]

Hallo,

genau so - im schlimmsten Fall bekommst du Fehlermeldungen.
Beachte bitte, dass in Zeile 23 und 26 ein Punkt fehlte und Zeile 8 nur noch "document = ThisComponent" lautet.

[Mau]

Lieber mikele,

ich bekam zunächst bei Z. 11 eine Fehlermeldung. Den Fehler habe ich bereits selbst behoben, indem ich die Variable document wieder - wie bei dir - in oDoc umbenannt habe.

Dann gibt es aber eine Fehlermeldung bei Z. 25 (und wahrscheinlich anschließend bei Z. 28), bei der ich keine Ahnung habe, worin der Fehler bestehen könnte; sie lautet so: BASIC-Laufzeitfehler. Objektvariable nicht belegt.

Was tun?

P.S.
Ich habe die entfernten Zeilen, statt sie zu entfernen, nur durchgestrichen, damit die Zeilen ihre vorherigen Nummern behalten.

Gruß,
Mau

[Mau]

Lieber mikele,

Beachte bitte, dass in Zeile 23 und 26 ein Punkt fehlte und Zeile 8 nur noch document = ThisComponent lautet.

Ja, das habe ich auch geändert. Aber ich muss statt document immer oDoc schreiben, sonst bekomme ich in Z.11 wieder die Fehlermeldung, die ich durch die Umbenennung bereits behoben hatte.

Gruß,
Mau

[mikele]

Hallo,

zwei Kleinigkeiten:
1. der Punkt vor ".txt" bzw. ".doc"
2. arg1() als Argument anstelle von arg()

args1(0).Name = "URL"
args1(1).Name = "FilterName"

args1(0).Value = sPfad & sName & ".txt"
args1(1).Value = "Text"
oDoc.storetoUrl(sPfad & sName & ".txt",arg1())

args1(0).Value = sPfad & sName & ".doc"
args1(1).Value = "MS Word 97"
oDoc.storetoUrl(sPfad & sName & ".doc",arg1())

[Mau]

Deine Änderungen habe ich durchgeführt. Jetzt bekomme ich aber plötzlich wieder die erste Fehlermeldung. Sie lautet(e) so: BASIC-Laufzeitfehler. Eigenschaft oder Methode nicht gefunden: geturl.

Eine Frage noch:
Bei der Vergabe und Belegung der Argumente-Variabel (ZZ. 20-24) heißt es immer args, beim Abruf des gültigen Wertes (ZZ. 25.28) jeweils nur arg. Muss das so sein?

[mikele]

Hallo,

immer args, beim Abruf des gültigen Wertes (ZZ. 25.28) jeweils nur arg. Muss das so sein?

Mein Fehler - es muss natürlich args1() heißen.

Code: Alles auswählen

	oDoc=Thiscomponent
	sUrl=oDoc.geturl()

Sollte keinen Fehler produzieren - Verwirrung pur ...

[Mau]

Du brauchst dich nicht zu entschuldigen. Ich finde es einfach phantastisch, wie unermüdlich ihr Experten bei solchen Problemen weiterhelft, erklärt und Hinweise gebt.

Bitte nicht als Bauchpinselei missverstehen...

[Mau]

Lieber mikele,

ich habe den Makro entsprechend korrigiert (die neueste Version findest du im Anhang).

Jetzt läuft er wieder fehlerfrei bis Z. 25, also bis zum ersten Speichervorgang. Dort wird folgende Meldung gezeigt:
BASIC-Laufzeitfehler.
Es ist eine Ausnahme aufgetreten.
Type: com.sun.star.task.ErrorCodeIOException.
Message: SfxBaseModel::impl_store <.txt> failed: 0x81a.

Gruß,
Mau