Hallo Experten,
wie kann man folgende Aufgabe lösen:
In einem Ordner „A“ entstehen täglich verschiedene Dokumente. Beim Speichern in den Ordner „A“ soll immer eine Kopie dieser entstandenen Datei in einen Ordner „B“ kopiert (gespeichert)werden.
Die Dateinamen die im Ordner „A“ stehen sollen nach dem Kopieren in den Ordner „B“ den gleichen ursprünglichen Namen haben.
Beispiel:
Inhalt Ordner „A“: Dokum01.doc; Dokum02.doc; Name03.doc; …
(jetzt läuft irgendein Automatismus - der von mir gesucht wird)
dann sieht der
Inhalt Ordner „B“: Dokum01.doc; Dokum02.doc; Name03.doc; …
so aus.
Danke schon mal im voraus für die Hilfe
Gruß Dietmar
Sorry, die Wordversion ist WORD 2000, SP3
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
hi,
ich hab jetzt keine lösung, aber einen prinzipiellen einwand:
warum willst du das? das frisst speicherplatz und erzeugt mehr oder weniger zwangsläufig dateninkonsistenz.
reichts nicht, die daten systematisch zu sichern?
m.
Statt die Standardfunktion Speichern zu nutzen, muss du ein Makro nutzen, dass nach dem Speichern eine Kopie erstellt.
Das nachfolgende Makro ist für Word97 erstellt, dürfte aber auch für Word2000 funktionieren. Das Makro muß du dann noch in deine Menüs und Symbolleisten einbauen für optimalen Komfort.
Sub DoppeltSpeichern()
’
’ DoppeltSpeichern Makro
’ Makro erstellt am 16.10.04
’
Dim Quelldatei, Zieldatei
Dateiname = ActiveDocument.Name 'Name der Datei wird ausgelesen
Anzeige = „Bitte Dateinamen eingeben.“ & Chr$(13) & „Wenn Name übernommen werden soll dann OK, sonst gewünschten Namen eingeben.“ & Chr$(13) & „Dateiextension ‚.doc‘ kann weggelassen werden.“
Titelleiste = „Datei doppelt Speichern“
Vorgabe = Dateiname
Dateiname = InputBox(Anzeige, Titelleiste, Vorgabe)
If Dateiname = „“ Then GoTo abbruch
If Not Right(Dateiname, 4) = „.doc“ Then
Dateiname = Dateiname & „.doc“
End If
ChangeFileOpenDirectory „C:\Test\Test_A“
ActiveDocument.SaveAs FileName:=Dateiname, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveDocument.Close
Quelldatei = „C:\Test\Test_A“ & Dateiname ’ Namen der Quelldatei festlegen.
Zieldatei = „C:\Test\Test_B“ & Dateiname ’ Namen der Zieldatei festlegen.
FileCopy Quelldatei, Zieldatei ’ Quell- in Zieldatei kopieren. Zieldatei wird ohne Rückfrage überschrieben
abbruch:
End Sub
Viel Erfolg beim Duplizieren
Franz