Hallo
ich würde gerne mit einem Makro eine geöffnete Datei in einem bestimmten Ordner unter einem bestimmten Namen abspeichern, und zwar
- falls die Datei noch nicht existiert, ohne Rückfrage oder Unterbrechung,
- falls die Datei in diesem Ordner bereits vorhanden ist, mittels Dialogfenster, damit man einen neuen Namen und Ordner wählen kann.
Diese Datei ist eine Word-Datei, die in diesem Makro zuvor so geöffnet wurde:
'Neues Word-Dokument auf Basis der Vorlage öffnen
Set oWordInstanz = CreateObject("Word.Application") 'Word-Instanz erstellen
oWordInstanz.Visible = True
Set oWordDoku = oWordInstanz.Documents.Open("R:\Angebote\Konzept.docm")
' Jetzt wird einiges mit dieser Word-Datei durchgeführt.
' Dann soll die Word-Datei in einem anderen Verzeichnis unter einem
' anderen Namen gespeichert werden. Verzeichnis und Name stehen in der Zelle,
' namens "PfadName"
' Das geht so:
With oWordInstanz.Dialogs(wdDialogFileSaveAs)
.Name = Range("PfadName").Text
.Show
End With
Wie muss der Code aussehen, wenn man nicht gefragt werden will, wenn die Datei problemlos speicherbar ist, aber sehr wohl gefragt wird, wenn die Datei schon da steht.
LG,
Barbara