Serienbriefe automatisch einzeln speichern

Ich nutze Word 97, um Serienbriefe zu versenden. Diese Briefe möchte ich nicht nur drucken, sondern auch einzeln abspeichern. Word produziert aber leider nur ein großes Dokument, das alle Serienbriefe enthält. Haben Sie einen Tip, wie ich jeden einzelnen Serienbrief automatisch in einem separaten Dokument speichern kann?

Standardmäßig bietet Word keine Möglichkeit, die einzelnen Serienbriefe zu speichern. Entweder lassen Sie die Serienbriefe gleich drucken, oder Sie produzieren die erwähnte Serienbriefdatei, die alle Serienbriefe enthält. Trotzdem ist Ihr Wunsch erfüllbar: Wenn Sie zunächst das große Serienbriefdokument anlegen, können Sie die einzelnen Serienbriefe mit Hilfe des Makros unten im Listing-Kasten ausschneiden und jeweils in einem neuen Dokument speichern.
Geben Sie Ihren Serienbrief zunächst in ein neues Dokument. Dazu rufen Sie den Menübefehl Extras – Seriendruck auf und klicken auf die Schaltfläche Ausführen. Word speichert die Serienbriefe dann wie erwähnt in einem großen Dokument namens Serienbriefe. Die einzelnen Briefe sind jedoch durch Abschnittswechsel voneinander getrennt.
Das Makro, das Ihre Serienbriefe einzeln speichert, muß also folgendermaßen vorgehen: Beginnend am Dokumentanfang, sucht es den nächsten Abschnittswechsel. Dann markiert es den Text bis zum Seitenanfang inklusive des Abschnittswechsels. Damit ist der erste Serienbrief markiert. Danach schneidet das Makro den Text aus, kopiert ihn in die Zwischenablage, legt eine neue Datei an, fügt den Text dort ein und speichert das Dokument.
Um dieses VBA-Makro zu programmieren, rufen Sie den Befehl Extras – Makros auf, geben als Makronamen etwa SaveSerBrf ein und klicken auf die Schaltfläche Erstellen. Die Textdatei WWSERBRF.TXT, die Sie auf der WIN-Monats-CD und in den WIN-Online-Foren finden, erspart Ihnen das Abtippen.
Schließen Sie dann den Visual-Basic-Editor mit [Alt]+[F4] und legen Ihr Makro in die Symbolleiste. Dazu rufen Sie Extras – Anpassen auf, wählen die Kategorie Makros aus und ziehen Ihr Makro aus der rechten Listbox in eine Symbolleiste. So können Sie per Mausklick jeden Brief einzeln speichern. Word öffnet automatisch den Dialog Speichern, damit Sie einen Dateinamen vergeben. Wenn Word die Dateinamen selbst vergeben soll, verwenden Sie statt ActiveDocument.Save den Befehl ActiveDocument.SaveAs. Der Dateiname entspricht dann der ersten Textzeile im Dokument. Doppelte Dateinamen numeriert Word automatisch.

Sub SaveSerBrf ()¶
With Selection.Find¶
.ClearFormatting¶
.Text = ô^bô¶
.Execute¶
End With¶
Selection.MoveRight Unit:=wdCharacter, Count:=1¶
Selection.HomeKey Unit:=wdStory, Extend:=wdExtend¶
Selection.Cut¶
Documents.Add¶
Selection.Paste¶
Selection.Delete Unit:=wdCharacter, Count:=1¶
ActiveDocument.Save¶
ActiveWindow.Close¶
End Sub¶