VBA [Word] Aktuelle Datei speichern

[Cool-Matthias]

Hi,

hab mal wieder 2 kleine Word-Probleme.

Ich muss eine Kopie! der aktuell geöffneten Datei in dem aktuellen Zustand speichern. D.h ich kann nicht einfach SaveAs verwenden, da dann ja die aktuell geöffnete Datei den neuen Namen bekommt.

Wäre ja alles mit Save und FileCopy kein Problem, nur stosse ich damit auf mein 2. Problem. Was ist wenn die datei noch nie gespeichert wurde? Dann darf auf keinen Fall der Datei speichern dialog hochkommen.

Irgendwelche Ideen????

Mfg

Matthias

[Goos]

Irgendwie geht das ja rein logisch nicht.

Unter welchen Namen willst du denn deine noch nie gespeicherte Datei speichern, wenn kein Dateidialog zur Auswahl hochkommen soll?

Goos

[Cool-Matthias]

Das wäre nicht das Problem! Ich habe einen festen Dateinamen (wird wo anders von User konfiguriert z.b C:\test.doc).

Ich möchte also die Datei z.B unter c:\test.doc speichern. Mache ich aber ein "SaveAs", ist die aktuelle Datei natürlich "test.doc" und was noch schlimmer ist, damit ist die Datei von Word gelockt.

[Goos]

Ich glaub du hast n Problem

...so auf Anhieb wuerde mir nur einfallen, das aktive Dokument zu kopieren um dann die Kopie entsprechend zu speichern und wieder zu schliessen, so dass das urspruengliche Dokument unangetastet bleibt. Problem dabei ist aber wahrscheinlich, dass man das nicht unbemerkt machen kann (also das kopieren des Dokumentes)

Goos

[Cool-Matthias]

Genau das ist das Problem.

Am Anfang dachte ich ja auch, ich kann einfach alles markieren, in ein neues Dokument einfügen und dann dieses speichern.

Das funktionierte auch soweit, bis jemand ne Formatvorlage hatte. Die war natürlich nach dem kopieren verschwunden.

Kann man eigentlich das "ActiveDocument" Object irgendwie duplizieren, das wäre wohl die einzige Lösung?

[Goos]

Hmmm wieso war die Formatvorlage nach dem kopieren verschwunden?

Ich bin ansich der Meinung, das muesste gehen.

Wie hast du denn markiert und kopiert?

Goos

[Cool-Matthias]

Also der orginal-Code ist schon etwas älter:

WordBasic.EditSelectAll

WordBasic.EditCopy

WordBasic.StartOfDocument

WordBasic.FileNew

WordBasic.EditPaste

WordBasic.StartOfDocument

Und dann wurde das ganze eben gespeichtert und die Datei geschlossen.

[Goos]

Hmmm.... wirklich nicht schoen das Ganze.

Wieso darf eigentlich kein Filedialog hochkommen, falls das Dokument noch nicht gespeichert wurde?

Goos

[Cool-Matthias]

Weil der das ganze dazu nötig ist, das Dokument in einer Datenbank zu speichern und sonst höre ich jetzt schon die Fragen "Warum muss ich mein Dokument auf der Festplatte speichern, wenn ich auf den Butten "In Datenbank speichern" drücke.

Du kennst doch die hochintellektuellen User

[Goos]

Hehehe....dann musst du die dummen Fragen der User halt umgehen.

Du schaust zuerst nach, ob das Dokument noch unbenannt ist, oder schonmal gespeichert wurde.

Dann speicherst du es dort hin, wo du die Kopie brauchst.

Danach speicherst du um den Namen zurueckzusetzen unter der alten Location.

Falls das File aber zurvor noch nicht gespeichert wurde speicherst du es unter einem Standardnamen (z.B. c:\temp\Document.doc)

Dann ueberschreibst du noch FileSave um dort abzufangen, wenn dein Standardname auftaucht und da dann einen SaveAs Dialog anzuzeigen.

....vielleicht solltests den Usern aber doch einfach erklaeren

Goos

[Cool-Matthias]

ich werde mich wohl doch dazu durchringen festzulegen, das jede Datei vorher gespeichert werden MUSS, ansonsten kommt eben doch der Speichern Dialog:(

Trotzdem Danke