Mit den Standardfunktionen für den Seriendruck von Word können Sie direkt mit einem Drucker, einem neuen Dokument oder einer Reihe von E-Mail-Nachrichten zusammenführen.

Es kann jedoch vorkommen, dass Sie für jeden Datenquellendatensatz ein eigenes Dokument erstellen müssen. Leider bietet Word keine Möglichkeit, dies zu tun. Glücklicherweise können Sie ein Makro erstellen, um die Aufgabe für Sie zu erledigen. Das folgende Makro „zerlegt“ ein Dokument, das mit der Seriendruckfunktion erstellt wurde. Jeder Abschnitt des Dokuments (es gibt einen Abschnitt pro Datenquellendatensatz) wird herausgezogen und in einer eigenen Dokumentdatei gespeichert.

Sub Splitter()

Dim numlets As Integer     Dim Counter As Integer     Dim BaseName As String     Dim DocName As String

Selection.EndKey Unit:=wdStory     numlets = Selection.Information(wdActiveEndSectionNumber)

If numlets > 1 Then numlets = numlets - 1     Selection.HomeKey Unit:=wdStory     BaseName = "c:\Let"

For Counter = 1 To numlets         DocName = BaseName & Right("000" & LTrim(Str(Counter)), 3)

ActiveDocument.Sections.First.Range.Cut         Documents.Add         Selection.Paste         Selection.MoveLeft Unit:=wdCharacter, Count:=1         Selection.Delete Unit:=wdCharacter, Count:=1         ActiveDocument.SaveAs FileName:=DocName         ActiveWindow.Close     Next Counter End Sub

Wenn das Makro ausgeführt wird, erstellt es eine Reihe von Dateien mit den Namen Ltr001 bis Ltrxxx, wobei xxx die Anzahl der Abschnitte im Originaldokument ist.

Tatsächlich erstellt das Makro eine „Ltr“ -Datei, die kleiner ist als die Anzahl der Abschnitte im Dokument. Der letzte Abschnitt des Dokuments verbleibt in der Originaldatei (die, die Sie verarbeiten). Wenn Sie den Dateinamen ändern möchten oder wo die Dateien gespeichert werden, ändern Sie die Einstellung für die Variable BaseName im Makro.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (11593) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier:

Dateien mit Seriendruck erstellen.