KutoolsforOffice — Eine Lösung, fünf leistungsstarke Tools.Mehr erreichen mit weniger Aufwand.März-Aktion: 20 % Rabatt

Wie teilt man ein Word-Dokument alle 5 oder n Seiten in separate Dateien auf?

AutorXiaoyang Änderungsdatum

Bei der Arbeit mit umfangreichen Word-Dokumenten kann es sinnvoll sein, diese zur einfacheren Handhabung, Weitergabe oder Bearbeitung in kleinere, separate Dateien aufzuteilen. Eine praktische Lösung hierfür ist die Aufteilung des Dokuments alle 5, 10 oder eine festgelegte Anzahl von Seiten – so lässt sich langer Inhalt effizienter verwalten.

Das manuelle Kopieren und Einfügen einzelner Seiten ist zeitaufwändig und ineffizient. In diesem Tutorial stellen wir schnelle und einfache Methoden vor, um ein Word-Dokument alle n Seiten in separate Dateien aufzuteilen:

Teilen Sie ein Word-Dokument mithilfe von VBA-Code in separate Dateien Alle n Seiten auf

Teilen Sie ein Word-Dokument mithilfe einer erstaunlichen Funktion in separate Dateien Alle n Seiten auf

Teilen Sie ein Word-Dokument mithilfe von VBA-Code in separate Dateien Alle n Seiten auf

Um ein großes Dokument basierend auf allen Seiten in separate Dateien aufzuteilen, hilft Ihnen der folgende VBA-Code. Gehen Sie dazu wie folgt vor:

  1. Halten Sie ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
  2. Klicken Sie auf Einfügen>Modul, und kopieren Sie den folgenden Code in das leere Modul:
    3. Sub DocumentSplitter()
    Dim xDoc As Document, xNewDoc As Document
    Dim xSplit As String, xCount As Long, xLast As Long
    Dim xRngSplit As Range, xDocName As String, xFileExt As String
    Dim xRegEx As RegExp
    Dim xPageCount As Integer
    Dim xShell As Object, xFolder As Object, xFolderItem As Object
    Dim xFilePath As String
    On Error Resume Next
    Set xDoc = Application.ActiveDocument
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Application.ScreenUpdating = False
    Set xNewDoc = Documents.Add(Visible:=False)
    xDoc.Content.WholeStory
    xDoc.Content.Copy
    xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
    With xNewDoc
        xPageCount = .ActiveWindow.Panes(1).Pages.Count
L1:     xSplit = InputBox("The document contains " & xPageCount & " pages." & _
                 vbCrLf & vbCrLf & "Please enter the number of pages per split:", "Kutools for Word", xSplit)
        If Len(Trim(xSplit)) = 0 Then Exit Sub
        Set xRegEx = New RegExp
        With xRegEx
            .MultiLine = False
            .Global = True
            .IgnoreCase = True
            .Pattern = "[^0-9]"
        End With
        If xRegEx.Test(xSplit) = True Then
            MsgBox "Please enter a valid page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The entered number exceeds the total page count of the document." & vbCrLf & "Please enter a valid number.", vbInformation, "Kutools for Word"
            GoTo L1
        End If
        xDocName = xDoc. Name
        xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
        xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
        xFilePath = xFilePath & xDocName
        For xCount = 0 To Int(xPageCount / xSplit)
            xPageCount = .ActiveWindow.Panes(1).Pages.Count
            If xPageCount > xSplit Then
                xLast = xSplit
            Else
                xLast = xPageCount
            End If
            Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
            Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
            xRngSplit.Start = .Range.Start
            xRngSplit.Cut
            Documents.Add
            Selection.Paste
            ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
            ActiveWindow.Close
        Next xCount
        Set xRngSplit = Nothing
        xNewDoc.Close wdDoNotSaveChanges
        Set xNewDoc = Nothing
    End With
    Application.ScreenUpdating = True
End Sub
  3. Nachdem Sie den Code eingefügt haben, klicken Sie im Fenster Microsoft Visual Basic for Applications auf Extras > Verweise. Aktivieren Sie im Dialogfeld Verweise – Projekt die Option Microsoft VBScript Regular Expressions 5,5 in der Liste Verfügbare Verweise. Siehe Screenshots:
    VBA-Fenster mit ausgewähltem Menüpunkt Extras > VerweisePfeilMicrosoft VBScript Regular Expressions 5.5 im Dialogfeld Verweise – Projekt aktiviert
  4. Klicken Sie auf OK und drücken Sie anschließend F5, um den Code auszuführen.
  5. Ein Dialogfeld Ordner durchsuchen wird angezeigt. Wählen Sie den Ordner aus, in dem Sie die geteilten Dateien speichern möchten, und klicken Sie auf OK.

    6. Dialogfeld Ordner durchsuchen

  6. Ein weiterer Hinweis erscheint mit der Aufforderung, die Anzahl der Seiten einzugeben, nach denen geteilt werden soll. Geben Sie die gewünschte Seitenanzahl ein und klicken Sie auf OK.

    7. Dialogfeld zur Eingabe der Seitenzahl, nach der getrennt werden soll

  7. Das Dokument wird alle n Seiten in separate Dateien aufgeteilt. Navigieren Sie zum angegebenen Ordner, um die Ergebnisse einzusehen.

    8. Das Dokument wird alle N Seiten in separate Dateien aufgeteilt

Teilen Sie ein Word-Dokument mithilfe einer erstaunlichen Funktion in separate Dateien Alle n Seiten auf

Kutools für Word bietet eine leistungsstarke Teilen-Funktion, mit der Sie ein umfangreiches Word-Dokument im Handumdrehen in mehrere separate Dateien aufteilen können – basierend auf Überschriften 1, Seitenumbrüchen, Abschnittsumbrüchen oder einzelnen Seiten. Diese Funktion vereinfacht einen ansonsten mühsamen manuellen Prozess erheblich.

Kutools für Word

Kutools für Word unterstützt Sie dabei, alltägliche Dokumentaufgaben mithilfe praktischer Werkzeuge direkt in Microsoft Word schneller zu erledigen – ganz ohne Programmierkenntnisse und komplizierte Einrichtung.

  • KI-gestütztes Schreiben, Überarbeiten, Übersetzen und Zusammenfassen
  • Stapelweise Suchen und Ersetzen über mehrere Dokumente hinweg
  • Word-Dokumente einfach zusammenführen und aufteilen
  • Stapelweise Konvertierung zwischen Word und PDF
HerunterladenMehr erfahren
  1. Klicken Sie auf KUTOOLS PLUS>Teilen.

    Schaltfläche „Teilen“ auf der Registerkarte Kutools im Menüband

  2. Konfigurieren Sie im erscheinenden Dialogfeld die folgenden Optionen nach Bedarf:
    1. Wählen Sie die Option Alle n Seiten aus dem Menü Split by.
    2. Geben Sie den Wert n in das Eingabefeld ein.
    3. Wählen Sie einen Speicherbereich aus.
    4. Geben Sie ein Präfix für die geteilten Dokumente an.

      Dialogfeld Dokument teilen

  3. Klicken Sie nach Abschluss der Einstellungen auf OK. Das Dokument wird entsprechend der ausgewählten Option (z. B. alle 7 Seiten) in mehrere Dateien aufgeteilt.Das Dokument wird alle N Seiten in separate Dateien aufgeteilt

Mit der Funktion Teilen in Kutools für Word lassen sich große Dokumente einfach und effizient in kleinere, handhabbare Dateien aufteilen.

Suchen Sie nach einer schnelleren Möglichkeit, ähnliche Aufgaben in Word zu erledigen? Probieren Sie Kutools für Word aus und vereinfachen Sie Ihre tägliche Arbeit!

HerunterladenWeitere Informationen

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!

Kutools for Word-Registerkarten im Menüband
 
 

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!

✨ 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

Beste Office-Produktivitätswerkzeuge

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

Kostenlos herunterladenJetzt kaufenWeitere Informationen zu Kutools