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╢