Mit den standardmäßigen Seriendruckfunktionen von Word können Sie direkt auf einem Drucker oder einem neuen Dokument zusammenführen. Abhängig von Ihrer Word-Version und -Installation können Sie möglicherweise auch eine Reihe von E-Mail-Nachrichten zusammenführen. (Jeder Datensatz in der Datenquelle würde eine individuelle E-Mail-Nachricht erstellen.)

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 (1326) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Dateien mit Seriendruck erstellen.