Office: (Office 2010) Dokumentname vorgeben von Dokumenten aus Vorlage

Hallo allerseits.

Ich stehe vor folgendem Problem:

Ich habe eine Vorlage im Word erstellt.
Wenn ich nun ein Dokument aus dieser Vorlage erstelle möchte ich nun, dass beim abspeichern dieses Dokuments der Dateiname teils generiert werden soll:

Vor dem Dateinamen muss das Datum yyyy-mm-dd stehen. Den Dateinamen selber sollte der User in einer Form eingeben können, InputBox oder ähnliches.
Der Pfad wo die Datei hingespeichert werden soll, müsste man auch individuell auswählen können.

Gibt es da eine elegante Lösung?

:)

 

Hallo und willkommen,

elegant? Das müsstest Du definieren. Ohne VBA wird's aber nicht gehen. Du kennst Dich damit aus?

Elegant wäre für mich, wenn der Anwender in einem Startdialog alle für das Dokument relevanten Daten eingeben könnte und nicht mit einer Speichern-Unter-Abfrage behelligt wird, sondern der Code den Ablagepfad und Dateinamen gleich selbst festlegt. Ist auch vorteilhaft für eine spätere Dokumentenverwaltung.

 

Ich kenne mich ein wenig mit VBA aus - soweit dass ich mir aus verschiedenen Quellen etwas zusammengebastelt habe:

Sub AutoNew()
Dim PathAndFileName As String
Dim Datum As String
Dim strEingabe As String

strEingabe = InputBox("Dokumentname:", "Texteingabe", "Ihr Text")
Datum = Format(Date, "yyyy-mm-dd")

Dim strPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "C:"
.Title = "Zielordner auswählen:"
If .Show Then strPath = .SelectedItems(1)
End With


PathAndFileName = strPath & "" & Datum & " " & strEingabe
PathAndFileName = PathAndFileName & ".doc"
ActiveDocument.SaveAs PathAndFileName
End Sub

Das funktioniert schon mal, aber nach kurzem testen ist mir aufgefallen, dass sobald ich ein zweites Dokument mit selbem Pfad und selbem Namen erstelle, eine Fehlermeldung aufploppt welche den Prozess stoppt.
Wenn es eine Möglichkeit gibt, diese Fehlermeldung mit einer Meldung zu ersetzen, welche dem User mitteilt, dass diese Datei bereits existiert und ihn wieder auf Step 1 zurücksetzt wäre das super.

Die Reihenfolge der Eingabe (Dateiname -> Pfad) bin ich mir auch nicht schlüssig, ob diese umgekehrt besser sein könnte. Gibt es hier einen Standard?

Aber danke schonmal für den Rat *Smilie

Ich werde sicher mal weiterbasteln

Edit: Ein weiterer Punkt um es eleganter zu machen wäre es eventuell auch, das Dokument bei der Erstellung nicht direkt zu speichern, sonder nur den Pfad und Dateinamen zu definieren.
Beim Speichern soll dann der Pfad und Dateiname übernommen werden. Die Frage die sich mir nun stellt ist, wie ich ActiveDocument.SaveAs PathAndFileName auskapseln kann und in ein Sub FileSave() stecke, welches den PathAndFileName aus Sub AutoNew() übernimmt.

 

Für Pfadauswahl, Dateinamenfestlegung und Existenzprüfung braucht man nur einen einzigen Dialog.
Da ich heute keinen Zugriff auf einen Office-PC habe kann ich erst Morgen ein Beispiel zeigen.

 

Super. Ich habe mal ein wenig weitergebastelt und mein Code sieht nun so aus:

Dim PathAndFileName As String

Sub AutoNew()

Dim Datum As String
Dim strEingabe As String

strEingabe = InputBox("Dokumentname:", "Texteingabe", "Ihr Text")
Datum = Format(Date, "yyyy-mm-dd")

Dim strPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "C:/"
.Title = "Ordner auswählen"
If .Show Then strPath = .SelectedItems(1)
End With


PathAndFileName = strPath & "" & Datum & " " & strEingabe
PathAndFileName = PathAndFileName & ".doc"

End Sub

Sub FileSave()
FileSaveAs
End Sub

Sub FileSaveAs()
ActiveDocument.SaveAs PathAndFileName
End Sub

Das funktioniert bei mir.

Bin gespannt auf deine Info's *Smilie

 

Hier ein Beispielcode: Code:

Der Dialog weist automatisch auf eine Doppelvergabe hin und erzwingt das Ersetzen des Sternchens.

 

Das sieht sehr gut aus! Vielen Dank.

 

Vielleicht kannst du mir weiterhin behilflich sein *Smilie

Ich bräuchte selbiges auch noch für eine Excel-Vorlage.

Ich habe dafür folgenden Code in "DieseArbeitsmappe" :

Code:

Das funktioniert so, jedoch öffnet Excel nach der Eingabe des Dateinamens/Speicherns immer ein Fenster wo man bestätigen muss, dass als Arbeitsmappe ohne Makro gespeichert werden soll.
Gibt es eine Möglichkeit, die Datei automatisch als Arbeitsmappe ohne Makros zu speichern ohne dies jedes mal manuell bestätigen zu müssen?

 

Mit kleinen Abwandlungen kann man das auch in Excel anwenden: Code:

 

Danke vielmals für die Hilfe, funktioniert alles, genau so wie gewünscht!