Wenn Sie die Seriendruckfunktion in Word verwenden, haben Sie die Möglichkeit, Ihre Ergebnisse entweder direkt zu drucken oder ein neues Dokument zu erstellen. Wenn Sie die letztere Option auswählen, enthält das resultierende Dokument alle Informationen, die normalerweise an den Drucker gesendet worden wären. Wenn es sich bei Ihrem Zusammenführungsdokument beispielsweise um einen zweiseitigen Buchstaben handelt, wird jeder Buchstabe im resultierenden Dokument durch einen Abschnittswechsel getrennt. Wenn Sie also den zweiseitigen Brief mit 150 verschiedenen Adressen zusammenführen, erhalten Sie ein 300-seitiges Dokument mit 150 Abschnittsumbrüchen (einer alle zwei Seiten).

Für einige Leute wäre es hilfreicher, wenn Sie zu einzelnen Dateien zusammenführen könnten. In dem obigen Beispiel möchten Sie beispielsweise möglicherweise 150 einzelne Dokumentdateien mit jeweils zwei Seiten Länge. Leider ist dies keine der verfügbaren Optionen, wenn Sie die Seriendruckfunktion von Word verwenden. Die einzige Antwort auf diese Aufgabe besteht darin, ein Makro zu erstellen, das auf der Grundlage des zusammengeführten Dokuments (des oben erwähnten 300-seitigen Dokuments) jeden Abschnitt aufnimmt und in einer eigenen Dokumentdatei speichert.

Wenn Sie in der Microsoft Knowledge Base nachsehen, werden Sie feststellen, dass es einen alten Artikel gibt, der sich genau mit diesem Problem befasst:

http://support.microsoft.com/kb/216201

Das im Artikel vorgestellte Makro funktioniert in späteren Versionen einwandfrei, obwohl es für eine ältere Version von Word geschrieben wurde. Sie können ein zusammengeführtes Dokument anhand der Abschnittswechsel in einzelne Dateien aufteilen:

Sub BreakOnSection()

'Used to set criteria for moving through the document by section.

Application.Browser.Target = wdBrowseSection

'A mailmerge document ends with a section break next page.

'Subtracting one from the section count stop error message.

For i = 1 To ((ActiveDocument.Sections.Count) - 1)



'Select and copy the section text to the clipboard         ActiveDocument.Bookmarks("\Section").Range.Copy

'Create a new document to paste text from clipboard.

Documents.Add         Selection.Paste

'Removes the break that is copied at the end of the section, if any.

Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend         Selection.Delete Unit:=wdCharacter, Count:=1

ChangeFileOpenDirectory "C:\"

DocNum = DocNum + 1         ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"

ActiveDocument.Close         'Move the selection to the next section in the document         Application.Browser.Next     Next i     ActiveDocument.Close savechanges:=wdDoNotSaveChanges End Sub

Es ist jedoch wichtig zu wissen, dass dieses Makro nur funktioniert, wenn nur zwischen zusammengeführten Dokumenten Abschnittswechsel auftreten. Wenn Ihr Originaldokument Abschnittswechsel enthält, liefert das Makro keine zufriedenstellenden Ergebnisse. Weitere Informationen zur Verwendung des Makros finden Sie im Knowledge Base-Artikel unter dem oben angegebenen Link.

_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 (1538) 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:

Zusammenführen zu einzelnen Dateien.