Wie teilen Sie ein Word-Dokument in mehrere Dokumente auf?

Wenn Sie ein umfangreiches Word-Dokument in mehrere kleinere Dokumente aufteilen möchten, führt Sie diese Anleitung durch drei effektive Methoden. Egal, ob Sie VBA bevorzugen – zum Teilen nach einem bestimmten Trennzeichen oder nach Seiten – oder die optimierte Funktionalität von Kutools für Word nutzen möchten: Hier finden Sie die passende Lösung.

• Word-Dokument mithilfe von VBA anhand eines festgelegten Trennzeichens teilen
• Word-Dokument nach Überschrift/Seite/Abschnittsumbruch/Seitenumbruch mithilfe von Kutools für Word teilen
• Word-Dokument seitenweise mithilfe von VBA teilen

Word-Dokument mithilfe von VBA anhand eines festgelegten Trennzeichens teilen

Anstatt ein Dokument manuell zu teilen, nutzen Sie VBA, um ein Word-Dokument automatisch an einem festgelegten Trennzeichen aufzusplitten. So geht’s:

1. Drücken Sie Alt + F11, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
2. Klicken Sie auf 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 Ausführen-Schaltfläche oder drücken Sie F5, um den VBA-Code auszuführen.
4. Bestätigen Sie im Pop-up-Fenster Microsoft Word durch Klicken auf Ja.

   

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

Kutools für Word bietet eine bequemere und flexiblere Möglichkeit, ein Dokument aufzuteilen, als manuelle Methoden oder VBA. Es stehen mehrere Optionen zur Verfügung, um ein Dokument nach Überschriften, Seiten, Abschnittsumbruch, Seitenumbruch, Alle n Seiten oder benutzerdefinierten Seitenbereichen zu teilen, sodass Sie den Aufteilungsprozess Ihren spezifischen Anforderungen anpassen können.

1. Klicken Sie auf KUTOOLS PLUS>Teilen, um die Funktion Teilenzu aktivieren.

   

2. Konfigurieren Sie im Dialogfeld Dokument teilen die folgenden Optionen:

   Wählen Sie eine Trennmethode aus der Trennen nach-Dropdown-Liste. Verfügbare Optionen umfassen Überschriften 1, Seitenumbrüche, Abschnittsumbrüche, einzelne Seiten, alle n Seiten oder benutzerdefinierte Seitenbereiche. Klicken Sie auf die Durchsuchen-Schaltfläche, um einen Zielordner für die geteilten Dokumente auszuwählen. Geben Sie ein Stichwort als Präfix für die neuen Dokumentnamen in das Dokumentpräfix-Feld ein. Tipp: Klicken Sie auf die Aktualisieren-Schaltfläche , um eine Vorschau des Namens des geteilten Dokuments im Vorschau-Feld anzuzeigen. Klicken Sie auf OK.

Das Dokument wird gemäß der festgelegten Methode aufgeteilt, und die generierte Datei wird im angegebenen Ordner gespeichert.

Word-Dokument seitenweise mithilfe von VBA teilen

Wenn Sie ein Word-Dokument schnell in mehrere einzelne Dokumente aufteilen möchten – wobei jedes genau eine Seite enthält –, lässt sich diese Aufgabe mühelos per VBA-Makro automatisieren. Gehen Sie dazu wie folgt vor:

1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen>Modul, und fügen Sie dann 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 Ausführen-Schaltfläche oder drücken Sie F5, um den VBA-Code auszuführen.

Verwandte Artikel:

Beste Office-Produktivitätswerkzeuge

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

🤖KUTOOLS KI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI-Korrekturlesen …

📘Dokument-Meisterschaft: Seiten aufteilen, Dokumente zusammenführen, Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML …), stapelweise in PDF konvertieren …

✏Inhaltsbearbeitung: Stapelweises Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren – Zeilen und Spalten tauschen / Tabelle in Text umwandeln …

🧹Mühelose Bereinigung: Fegen Sie überflüssige Leerzeichen/Abschnittsumbruch/Textfeld/Hyperlinks/ Weitere Entfernungs-Werkzeuge finden Sie in der EntfernenGruppe …

➕Kreative Einfügungen: Fügen Sie Tausendertrennzeichen/Kontrollkästchen/Optionsfeld/QR-Code/Strichcode/Mehrere Bilder/ Weitere Funktionen finden Sie in der Einfügen-Gruppe …

🔍Präzisionsauswahl: Wählen Sie gezielt bestimmte Seiten, Tabellen, Formen oder Überschriftenabsätze aus – und verbessern Sie Ihre Navigation mit weiteren Auswählen-Funktionen …

⭐Hervorragende Erweiterungen: Zu beliebigen Positionen navigieren / Wiederkehrenden Text automatisch einfügen / Zwischen Dokumentenfenstern wechseln / 11 Konvertierungswerkzeuge Konvertierungs- …

🌍Unterstützt über 40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere!

 

Kostenlos herunterladen     Jetzt kaufen     Weitere Informationen

 

---

Office Tab– Bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher

• Aktivieren Sie die tabbasierte Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
• Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs desselben Fensters – statt in separaten Fenstern.
• Steigert Ihre Produktivität um 50 % und spart Ihnen täglich Hunderte von Mausklicks!

Kostenlos herunterladen     Jetzt kaufen     Weitere Informationen

 

---

✨ Kutools for Office – Eine Installation, fünf leistungsstarke Werkzeuge!

Enthält Office Tab Pro·Kutools für Excel·Kutools für Outlook·Kutools für Word·Kutools for PowerPoint

📦 Alle 5 Werkzeuge in einem Paket erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Zeit sparen und sofort die Produktivität steigern

⬇️ Jetzt herunterladen🎁 Das vollständige Paket kaufen📖 Weitere Informationen

Beste Office-Produktivitätswerkzeuge

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

• 🤖KUTOOLS AI-Funktionen:KI-Assistent/Echtzeit-Assistent/Super Polieren/Super Übersetzen/KI-Redaktion/KI Korrekturlesen
• 📘Dokument-Meisterschaft:Seiten aufteilen/Dokumente zusammenführen/Stapelweise in PDF konvertieren
• ✏Inhaltsbearbeitung:Stapelweise Suchen und Ersetzen/Alle Bilder skalieren
• 🧹Mühelose Bereinigung:Überflüssige Leerzeichen entfernen/Abschnittsumbruch entfernen
• ➕Kreative Einfügungen:Tausendertrennzeichen einfügen/Kontrollkästchen einfügen/QR-Code erstellen
• 🌍Unterstützt über 40 Sprachen: Kutools spricht Ihre Sprache – mit Unterstützung für über 40 Sprachen!

Kostenlos herunterladenJetzt kaufenWeitere Informationen zu Kutools