Supportnet Computer
Planet of Tech

Supportnet / Forum / Textverarbeitung

Speicherort für bestimmte Dateien festlegen.





Frage

Hallo, Ich möchte Dateien, die mit einer bestimmten Word-Dokumentvorlage geschrieben werden in ein bestimmtes Verzeichnis speichern. Alle anderen Dateien werden weiterhin in das Verzeichnis, das unter Extras - Optionen angegeben ist gespeichert werden. Kann ich das in der Dokumentvorlage festlegen?? Gruß futterer.

Antwort 1 von BadBoyNRW

Heya

ja sicher kannst du das wähle doch den Pfad einfach über DATEI- SPEICHERN UNTER selber aus....

gruss badboy

Antwort 2 von futterer

Hallo BadBoy

Dein Kommentar hilft beim eigentlichen Problem nicht wirklich weiter. Dass man über SPEICHERN UNTER.... Dateinamen und Pfad selbst auswählen kann ist bekannt.

Es soll aber von vornherein ein Pfad angegeben werden.
z.B. E:\Dokumente\bestimmterPfad anstelle von C:\Egene Dateien.

Gruß
Futterer.

Antwort 3 von nostalgiker6

Eine Möglichkeit - wenn auch nicht voll befriedigend -, sofern es nur um EINE solche Zuweisung geht (also entweder nur um EINE Vorlage,
oder um mehrere Vorlagen, die alle ins GLEICHE Verzeichnis sollen):

Die Vorlage(n) in das vorgesehene ZIELVERZEICHNIS stellen und dieses Verzeichnis als das V für Arbeitsgruppen-Vorlagen definieren (extras-Optionen ...)
Dann allerdings nicht SPEICHERN, sondern - wie schon vorgeschlagen: SPEICHERN UNTER

Aber jetzt ist das Verzeichnis vorgeschlagen, in dem die Vorlage sich befindet!

Eine weitere Möglichkeit dürfte ein Macro sein. Macros lassen sich nämlich nicht nur der normal.dot zuordnen, sondern auch einer bestimmten Vorlage.

Antwort 4 von futterer

Hallo,

Habe inzwischen selbst eine Lösung programmiert:
 
Sub FileSave()
  If ActiveDocument.Path = "" Then ´Falls Dokument noch nie gespeichert wurde
    FileSaveAs
    Exit Sub
  End If
  ActiveDocument.Save
End Sub

Sub FileSaveAs()
  Pfad = "E:\Dokumente\bestimmter Pfadt"
  With Dialogs(wdDialogFileSaveAs)
    .Name = Pfad & "\" & "RechnungNr_"
    .Show
    Antwort = .Display
    If Antwort = 0 Then Exit Sub ´  Benutzer hat abgebrochen
    If Not Left(UCase(.Name), 11) = "RechnungNr_" Then
      MsgBox "Dateiname ungültig! Siehe Verfahrenshandbuch- betrieblicher Ablauf  §18,3"
      Exit Sub
    End If
    .Execute
  End With
End Sub


Gruß
Futterer

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: