Word 2010 ist zweifellos der beste Texteditor auf dem Markt. Neben grundlegenden Bearbeitungswerkzeugen und Diagrammstilen bietet es auch die Möglichkeit, Dokumente nach Belieben anzupassen. Standardmäßig verborgen, bietet Word 2010 die Möglichkeit, verschiedene Funktionen hinzuzufügen, wie zum Beispiel das Zusammenführen von Word-Dokumenten durch das Einfügen weniger Codezeilen, ohne dass eine spezielle Drittanbieter-App erforderlich ist. In diesem Beitrag fügen wir einige Codezeilen ein, um alle Inhalte von Dokumenten im selben Ordner zusammenzuführen und in einem neuen Ordner anzuzeigen.
Zunächst müssen Sie die Dokumente in denselben Ordner legen und sicherstellen, dass sie alle zur gleichen Word-Version gehören, entweder Doc oder Docx. Wie Sie im Screenshot unten sehen können, haben wir zwei Dokumente geöffnet, die zusammengeführt werden sollen.

Öffnen Sie nun ein beliebiges Word-Dokument und speichern Sie es als Dokument mit Makros. Gehen Sie dazu zum Menü „Datei“ und klicken Sie auf „Speichern unter“.

Ein Dialogfeld wird angezeigt. Klicken Sie unter „Dateityp“ auf „Word-Vorlage mit Makros“ und dann auf „Speichern“.

Wir verwenden den VB-Editor. Daher müssen wir zunächst die Registerkarte „Entwicklertools“ im Word-Fenster sichtbar machen. Falls Sie die Registerkarte „Entwicklertools“ nicht finden , gehen Sie zum Menü „Datei“ , klicken Sie auf „Optionen“ und im linken Bereich auf „Menüband anpassen“ . Aktivieren Sie im rechten Bereich das Kontrollkästchen „Entwicklertools“ . Klicken Sie auf „OK“, um die Registerkarte „Entwicklertools“ im Menüband anzuzeigen .

Navigieren Sie nun zur Registerkarte „Entwickler“ und klicken Sie auf „Visual Basic“.

Sie gelangen zum VB-Editor-Dialog. Doppelklicken Sie in der linken Seitenleiste auf ThisDocument, um das VB-Bearbeitungsfenster zu öffnen. Auf der rechten Seite sehen Sie das Codefenster. Fügen Sie nun diese Codezeilen ein.
Hinweis: Vergessen Sie nicht, den Pfad des Ordners, in dem sich die Dokumente befinden, und die Version der Word-Dokumente in diesen Codezeilen zu ändern. Zur Vereinfachung haben wir diese Vorsichtsmaßnahme auch vor den Codes hinzugefügt.
Sub MergeDocs()
Dim rng As Range
MainDoc als Dokument dimmen
Dim strFile As String
Const strFolder = „C:\Benutzer\Usman Javaid\Desktop\Word-Dokumente\“ ||| (Ändern Sie den Pfad, in dem sich Ihre Dokumente befinden.)
Setze MainDoc = Documents.Add
strFile = Dir$(strFolder & „*.docx“) ||| (Ändern Sie die Dateierweiterung in .doc, falls Sie mit der Word-Version 97-03 arbeiten.)
Ausführen, bis strFile = „“
Setze rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir$()
Schleife
Ende Sub

Drücken Sie nun Strg+S, um das neu hinzugefügte Makro zu speichern und den VB-Editor zu schließen. Navigieren Sie zur Registerkarte Entwickler und klicken Sie auf Makros.
Wählen Sie im Dialogfeld „Makros“ das Makro „MergeDocs “ aus und klicken Sie auf „Ausführen“ .

Wenn Sie Pfad und Version korrekt angegeben haben, werden alle Dokumente zusammengeführt und in einem neuen Dokument geöffnet.

Sie können sich auch unsere zuvor besprochenen Anleitungen zum Zurückkehren zur letzten bearbeiteten Zeile in Word 2010 und zur Verwendung der Seriendruckfunktion in Word 2010 ansehen .
[via gaebler ]