Stuart schrieb über die Notwendigkeit, viele verschiedene Textdateien in einem einzigen Word-Dokument zusammenzufassen. Das manuelle Einfügen der Dateien erwies sich als mühsam, insbesondere wenn 20 oder 30 verschiedene Textdateien kombiniert werden mussten.

Zum Glück für Stuart waren seine Dateinamen vorhersehbar: C1000.TXT, C1001.TXT usw. Dies macht das Zusammenstellen eines Makros für die Konsolidierung ziemlich einfach. Im folgenden Beispiel werden die Dateien C1000.TXT bis C1030.TXT im Verzeichnis C: \ gesucht und im aktuellen Dokument zusammengefasst:

Sub CombineFiles()

Dim J As Integer     Dim sFile As String     For J = 1000 To 1030         sFile = "c:\c" & Trim(Str(J)) & ".txt"

If (Dir(sFile) > "") Then             Selection.InsertFile FileName:=sFile, ConfirmConversions:=False             Selection.TypeParagraph         End If     Next End Sub

Wenn Sie den Bereich der einzufügenden Dateien ändern möchten, ändern Sie einfach die Werte am Anfang der For …​ Next-Schleife. Wenn sich die Dateien in einem anderen Verzeichnis befinden, können Sie den Pfad ändern, der in der nächsten Codezeile verwendet wird, in der sFile festgelegt ist. Wenn eine Datei innerhalb des Bereichs fehlt, wird sie automatisch übersprungen.

Es gibt jedoch eine noch einfachere Möglichkeit, Dateien zu kombinieren, bei der nicht einmal Word verwendet wird. Sie können den folgenden Befehl an einer Windows-Eingabeaufforderung verwenden:

copy C1???.txt single.txt

Dies würde bis zu 1000 Dateien, C1000.TXT bis C1999.TXT, in einer einzigen Textdatei namens SINGLE.TXT kombinieren. Die Originaldateien bleiben unberührt.

Wenn Sie eine kleinere Anzahl von Dateien kombinieren möchten, können Sie dieses Format verwenden:

copy C1020.txt+C1021.txt+C1022.txt+C1023.txt single.txt

Diese Verwendung führt dazu, dass die vier Dateien C1020.TXT bis C1023.TXT zu SINGLE.TXT kombiniert werden. Auf diese Weise können Sie beliebig viele Dateien hinzufügen.

Diese Technik weist jedoch eine Einschränkung auf. Der Kopierbefehl führt dazu, dass einer Datei überhaupt keine zusätzlichen Zeichen hinzugefügt werden. Mit anderen Worten, der Inhalt von C1021.TXT wird unmittelbar nach C1020.TXT platziert. Wenn beispielsweise C1020.TXT „Text 1020“ und C1021.TXT „Text 1021“ enthält, enthält SINGLE.TXT „Text 1020text 1021“. Die einzige Möglichkeit, dies zu umgehen, besteht darin, entweder jede Quelldatei zu bearbeiten, um sicherzustellen, dass sie mit einem Wagenrücklauf endet, oder das zuvor dargestellte Makro zu verwenden.

_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 (9807) gilt für Microsoft Word 2007, 2010, 2013 und 2016. Eine Version dieses Tipps für die ältere Menüoberfläche von Word finden Sie hier: Dokumente kombinieren.