Office: (Office 2010) Serienbriefe einzeln speichern

Damit ich das erzeugte Dokument in unserer elektronische Akte ablegen kann braucht es einen definierten Namen. Der besteht aus der Personalnummer (die ist von Mitarbeiter zu Mitarbeiter verschieden :)) und dem festen Zusatz 077-01082023. (z.B. 1234-077-01082023). Ich habe den Ordner in dem die Dokumente gespeichert werden -077-01082023 genannt und dachte wenn ich das Feld Personalnummer an den Anfang des Dateinamen bekomme wird die erzeugte Datei gleich im richtigen Format gespeichert. Grds. ist mir der Speicherort aber egal. Wichtig wäre eben nur das der Dateiname aus der Personalnummer und dem Zusatz besteht.

 

Hallo nochmal,

es geht also um den Dateinamen und nicht um den Pfad. Und der Dateiname soll aus der Personalnummer bestehen, gefolgt von der festen Zusatznummer, die gleichzeitig der Ordnername ist?

Angenommen dieser Ordner befindet sich auf Laufwerk F: im Ordner Personal, dann könntest du Speicherort und Dateiname wie folgt zusammensetzen:
pfad = "F:\personal\ 'mit Backslash!
ordnername = "-077-01082023" ' ohne Backslash!
dateiname = .DataSource.DataFields("Personalnummer").Value & ordnername

Die Anweisung zum Speichern wäre dann (wenn als Word-Dokument gespeichert werden soll):
Activedocument.Saveas2 filename:= pfad & ordnername & "\" & dateiname, fileformat:= wdFormatDocumentDefault

Statt der Variable ordnername könntest du natürlich auch den fixen String nehmen:
pfad = "F:\personal\-077-01082023\"
dateiname = .DataSource.DataFields("Personalnummer").Value & "-077-01082023"

Das ist einfacher, hätte aber halt den Nachteil, dass du die Ordnerbezeichnung an mehreren Stellen anpassen musst, wenn sie sich mal ändert.

Das alles hab ich jetzt aus dem hohlen Bauch geschrieben; vielleicht hab ich irgendwo einen Backslash oder ein Anführungszeichen vergessen, aber das wirst du schon merken.