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

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
• Word-Dokument mit Kutools für Word nach Überschrift/Seite/Abschnittsumbruch/Seitenumbruch teilen
• Word-Dokument mit VBA nach Seite teilen

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.

   

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.

1. Klicken Sie auf Kutools Plus > Teilen, um die Split-Funktion zu aktivieren.

   

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

   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. Klicken Sie auf die Durchsuchen Schaltfläche um einen Zielordner für die geteilten Dokumente auszuwählen. 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 können Sie die Namen der geteilten Dokumente in der Vorschau Box anzeigen. Klicken Sie auf Ok.

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

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.

Verwandte Artikel:

Beste Büroproduktivitätswerkzeuge

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

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

📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise in PDF konvertieren...

✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Zeilen und Spalten der Tabelle transponieren / Tabelle in Text umwandeln...

🧹 Müheloses Reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfelder / Hyperlinks / Für weitere Entfernungstools gehen Sie zur Entfernen-Gruppe...

➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie mehr in der Einfügen-Gruppe...

🔍 Präzise Auswahlen: Bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit mehr Auswahlfunktionen ...

⭐ Sterneverbesserungen: Zu jedem Standort navigieren / Automatisches Einfügen von wiederholtem Text / Wechsel zwischen Dokumentfenstern /11 Konvertierungswerkzeuge...

👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word jetzt herunter! 🚀

Kostenloser Download     Jetzt kaufen     Erfahren Sie mehr über Kutools für Word

 

Beste Büroproduktivitä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
• 📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Stapelweise in PDF konvertieren
• ✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen / Alle Bilder skalieren
• 🧹 Müheloses Reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche entfernen
• ➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen einfügen / QR-Codes erstellen

Kostenloser Download Jetzt kaufen Erfahren Sie mehr über Kutools