Datei speichern unter mit Macro
20.11.2020 11:09:39
wennerfaellt
ich weiß nicht genau, ob ich hier richtig bin, denn es geht um ein Macro in word.
Ich möchte per Macro eine word-Vorlage vor dem Schreiben an anderer Stelle speichern, hier muss _ ich noch individuell den neuen Dateinamen eingeben. Ich habe einige Codes gefunden, von denen einer sogar ein Stückweit funktioniert:
Sub FileSaveAs2()
Const Pfad As String = "S:\OS\SC\AUSHANG-Fahrer-Info\Aushänge 2020\Reisen\" 'Anpassbarer Pfad
Dim strAltPfad As String
Dim strPfad As String
strAltPfad = CurDir
strPfad = Left(Pfad, 3)
ChDir strPfad
ChangeFileOpenDirectory (Pfad)
Dialogs(wdDialogFileSaveAs).Show
ChangeFileOpenDirectory (strAltPfad)
End Sub
Diesem war noch ein weiterer Code vorgeschaltet:
Sub FileSave()
If ActiveDocument.Path = "" Then
Call FileSaveAs
Exit Sub
End If
End Sub
Der funktioniert aber nicht. Einmal versehentlich den "FileSaveAs" angeklickt, und es funktionierte, bis auf den Speicherort, der nicht gewechselt wird.
Die Vorlage liegt in einem Unterordner: S:\OS\SC\AUSHANG-Fahrer-Info\Aushänge 2020\Reisen\Vorlagen Dopheide
Die daraus entstehenden Fahrer-Infos, werden, wie im Code angegeben einen Ordner höher abgelegt. Und hier liegt das Problem. Das Macro öffnet mir das "Speichern unter"-Fenster, wo ich den Dateinamen eintragen kann, aber der Speicherort wird nicht gewechselt. Ich habe erst gedacht, das liegt daran, dass die Fahrer-Info im übergeordneten Ordner abgelegt wird, aber ich habe auch in den Code einen Speicherplatz auf C: eingetragen, aber ich bekomme immer den aktuellen Ordner angezeigt.
Wo könnte der Fehler liegen?
Vielen Dank im voraus.