Zum Hauptinhalt springen

Wie teilt man ein Word-Dokument in mehrere Dokumente auf?

Author: Amanda Li Last Modified: 2025-08-06

Wenn Sie ein großes Word-Dokument haben, das in mehrere kleinere Dokumente aufgeteilt werden muss, führt Sie dieses Tutorial durch drei effektive Methoden. Ob Sie VBA verwenden möchten, um nach einem bestimmten Trennzeichen oder nach Seiten zu teilen, oder die optimierte Funktionalität von Kutools für Word bevorzugen – Sie werden eine Lösung finden, die Ihren Anforderungen entspricht.

Word-Dokument mit VBA nach angegebenem Trennzeichen teilen

Anstatt ein Dokument manuell zu teilen, können Sie VBA verwenden, um ein Word-Dokument nach einem bestimmten Trennzeichen zu teilen. Folgen Sie diesen Schritten:

  1. Drücken Sie Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
  2. Klicken Einfügen > Modul, und fügen Sie den folgenden VBA-Code in das Modulfenster ein. 
    Sub SplitNotes(delim As String, strFilename As String)
Dim doc As Document
Dim arrNotes
Dim I As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split(ActiveDocument.Range, delim)
Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections. Do you wish to proceed?", 4)
If Response = 7 Then Exit Sub
For I = LBound(arrNotes) To UBound(arrNotes)
If Trim(arrNotes(I)) <> "" Then
X = X + 1
Set doc = Documents.Add
doc.Range = arrNotes(I)
doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
doc.Close True
End If
Next I
End Sub
Sub test()
'delimiter & filename
SplitNotes "///", "Notes "
End Sub
  3. Klicken Sie auf die Schaltfläche Ausführen oder drücken Sie F5, um die VBA auszuführen.
  4. Bestätigen Sie im Pop-up-Fenster von Microsoft Word, indem Sie auf Ja klicken.

    Confirmation dialog

Hinweise:

  • Das Skript sucht nach "///" (in Zeile 22 des Codes) im Dokument, um die Stellen zu identifizieren, an denen der Text in separate Dateien geteilt werden soll. Wenn das Trennzeichen in Ihrem Dokument von "///" abweicht, müssen Sie den VBA-Code aktualisieren, um das richtige Trennzeichen widerzuspiegeln, oder Ihr Dokument so ändern, dass es "///" an den gewünschten Trennstellen enthält.
  • Sie können "Notes" in Zeile 22 des Codes durch beliebigen Text ersetzen, um ein aussagekräftigeres Präfix für die Dateinamen Ihrer geteilten Dokumente zu erstellen.
  • Die geteilten Dokumente werden am gleichen Speicherort wie die Originaldatei gespeichert.
  • Am Ende des Dokuments ist kein Trennzeichen erforderlich; andernfalls wird eine leere Datei erstellt.

Word-Dokument mit Kutools für Word nach Überschrift/Seite/Abschnittsumbruch/Seitenumbruch teilen

Kutools für Word bietet eine bequemere und flexiblere Möglichkeit, ein Dokument zu teilen, im Vergleich zu manuellen Methoden oder VBA. Es bietet mehrere Optionen, um ein Dokument nach Überschriften, Seiten, Abschnittsumbrüchen, Seitenumbrüchen, alle n Seiten oder benutzerdefinierte Seitenbereiche zu teilen, sodass Sie den Teilungsprozess an Ihre spezifischen Bedürfnisse anpassen können.

Kutools für Word,ausgestattet mit KI 🤖, bietet über 100 praktische Funktionen, um Ihre Aufgaben zu vereinfachen.
  1. Klicken Sie auf Kutools Plus > Teilen, um die Split-Funktion zu aktivieren.

    Split option on the Kutools Plus tab on the ribbon

  2. Konfigurieren Sie im Dialogfeld „Dokument teilen“ die folgenden Optionen:
    Kutools Split Document dialog box
    1. Wählen Sie eine Teilungsmethode aus der Dropdown-Liste „Teilen nach“. Verfügbare Optionen sind Überschrift 1, Seitenumbrüche, Abschnittsumbrüche, Seiten, alle n Seiten oder benutzerdefinierte Seitenbereiche.

      Split by options

    2. Klicken Sie auf die Durchsuchen Schaltfläche Path selection button um einen Zielordner für die geteilten Dokumente auszuwählen.
    3. Geben Sie ein Schlüsselwort als Präfix für die Namen der neuen Dokumente in das Feld Dokumentpräfix ein. Tipp: Durch Klicken auf die Aktualisieren Schaltfläche Refresh button können Sie die Namen der geteilten Dokumente in der Vorschau Box anzeigen.
    4. Klicken Sie auf Ok.

Das Dokument wird entsprechend der angegebenen Methode geteilt, und die neuen Dateien werden im festgelegten Ordner gespeichert.

Hinweise:

  • Wenn Sie nach jeder n-ten Seite teilen, geben Sie die Zahl im entsprechenden Feld an.

    Split by Every n pages

  • Für benutzerdefinierte Seitenbereiche geben Sie diese durch Kommas getrennt ein (z.B. 1,3-5,12).

    Custom Page Ranges

Kutools für Word ist das ultimative Word-Add-in, das Ihre Arbeit optimiert und Ihre Dokumentverarbeitungsfähigkeiten steigert. Jetzt herunterladen!

Tab-ähnliches Browsen & Bearbeiten für mehrere Word-Dokumente, genau wie in Chrome und Edge!

Ähnlich wie beim Durchsuchen mehrerer Webseiten in Chrome, Safari und Edge ermöglicht Office Tab das Öffnen und Verwalten mehrerer Word-Dokumente in einem einzigen Fenster. Das Wechseln zwischen Dokumenten ist nun ganz einfach per Klick auf ihre Tabs möglich!
Testen Sie Office Tab jetzt kostenlos!

Browse multiple word documents in one window just like in Chrome

Word-Dokument mit VBA nach Seite teilen

Wenn Sie schnell ein Word-Dokument in mehrere Dokumente aufteilen müssen, wobei jedes Dokument eine Seite enthält, können Sie ein VBA-Makro verwenden, um diese Aufgabe zu automatisieren. Folgen Sie den unten stehenden Schritten:

  1. Drücken Sie Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
  2. Klicken Einfügen > Modul, und fügen Sie den folgenden VBA-Code in das neue Modulfenster ein: 
    Sub SplitIntoPages()
Dim docMultiple As Document
Dim docSingle As Document
Dim rngPage As Range
Dim iCurrentPage As Integer
Dim iPageCount As Integer
Dim strNewFileName As String
Application.ScreenUpdating = False 'Makes the code run faster and reduces screen flicker a bit.
Set docMultiple = ActiveDocument 'Work on the active document
Set rngPage = docMultiple.Range 'Instantiate the range object
iCurrentPage = 1
'Get the document's page count
iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
Do Until iCurrentPage > iPageCount
    If iCurrentPage = iPageCount Then
        rngPage.End = ActiveDocument.Range.End 'Last page (no next page)
    Else
        'Find the beginning of the next page
        'Must use the Selection object. The Range.Goto method will not work on a page
        Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
        'Set the end of the range to the point between the pages
        rngPage.End = Selection.Start
    End If
    rngPage.Copy 'Copy the page into the Windows clipboard
    Set docSingle = Documents.Add 'Create a new document
    docSingle.Range.Paste 'Paste the clipboard contents to the new document
    'Remove any manual page break to prevent a second blank
    docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
    'Build a new sequentially numbered file name based on the original multi-paged file name and path
    strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
    docSingle.SaveAs strNewFileName 'Save the new single-paged document
    iCurrentPage = iCurrentPage + 1 'Move to the next page
    docSingle.Close 'Close the new document
    rngPage.Collapse wdCollapseEnd 'Go to the next page
Loop 'Go to the top of the do loop
Application.ScreenUpdating = True 'Restore the screen updating
'Destroy the objects.
Set docMultiple = Nothing
Set docSingle = Nothing
Set rngPage = Nothing
End Sub
  3. Klicken Sie auf die Schaltfläche Ausführen oder drücken Sie F5, um die VBA auszuführen.

Hinweis: Die geteilten Dokumente werden am gleichen Speicherort wie die Originaldatei gespeichert.

Verwandte Artikel:

 
 

Ein Word-Dokument in separate Dateien aufteilen, jeweils alle 5 oder n Seiten
Wenn Sie ein großes Word-Dokument mit Hunderten von Seiten haben und dieses nun in separate Dateien aufteilen möchten, jeweils alle 10 oder n Seiten – gibt es eine schnelle und einfache Möglichkeit, dies ohne Kopieren und Einfügen der Seiten einzeln zu erledigen?

 
 

Ein Word-Dokument aufteilen und als separate PDF-Datei speichern
In Word können Sie das gesamte Dokument als PDF-Datei speichern, aber haben Sie jemals versucht, das Dokument aufzuteilen und die Seiten dann als separate PDF-Datei zu speichern? In diesem Artikel stelle ich Methoden vor, um diese Aufgabe schnell zu lösen.

 
 

Eine Seite in einem Word-Dokument in vier Viertel teilen
In einigen Fällen müssen wir eine Seite in vier Viertel aufteilen, um Texte in einem Dokument zu platzieren, wie im folgenden Screenshot gezeigt. Allerdings gibt es keine integrierte Funktion, die Ihnen direkt bei dieser Aufgabe helfen kann. In diesem Artikel stelle ich einen Umweg vor, um diese Aufgabe in Word zu erledigen.

 
 

Tabelle horizontal oder vertikal in einem Word-Dokument teilen
Wenn Sie eine große Tabelle in Ihrem Word-Dokument haben und diese nun horizontal oder vertikal in zwei oder mehr Tabellen aufteilen möchten, wie könnten Sie diese Aufgabe in einer Word-Datei lösen?

Die besten Produktivitätstools für das Büro

Kutools für Word – Steigern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!

🤖 Kutools AI-Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...

📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise Konvertierung nach PDF...

✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen über mehrere Dateien / Alle Bilder skalieren / Tabellenzeilen und -spalten transponieren / Tabelle in Text umwandeln...

🧹 Mühelos bereinigen: Entfernen Sie ganz einfach zusätzliche Leerzeichen / Abschnittsumbrüche / Textfelder / Hyperlinks / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen...

➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen im Bereich Einfügen...

🔍 Präzise Auswahl: Bestimmen Sie gezielt bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit weiteren Auswählen -Funktionen...

⭐ Herausragende Verbesserungen: Navigieren Sie zu beliebigen Standorten / Automatisches Einfügen von wiederkehrendem Text / Umschalten zwischen Dokument-Fenstern /11 Konvertierungswerkzeuge...

🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und mehr als40 weitere!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word jetzt herunter! 🚀
 

Die besten Produktivitätstools für das Büro

Kutools für Word – 100+ Werkzeuge für Word

Kostenloser Download Jetzt kaufen Mehr erfahren über Kutools