KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe splitst u een Word-document elke 5 of n pagina’s in afzonderlijke bestanden?

AuteurXiaoyang Wijzigingsdatum

Bij het werken met grote Word-documenten kan het handig zijn om het document op te splitsen in kleinere, afzonderlijke bestanden – voor eenvoudiger beheer, delen of bewerken. Een document splitsen om de 5, 10 of een zelf opgegeven aantal pagina’s is een praktische manier om langere inhoud efficiënter te beheren.

Het handmatig kopiëren en plakken van pagina’s, één voor één, kost veel tijd en is inefficiënt. In deze handleiding presenteren we snelle en eenvoudige methoden om een Word-document te splitsen in afzonderlijke bestanden — elke *n* pagina’s.

Een Word-document splitsen in afzonderlijke bestanden Elke n pagina's met VBA-code

Een Word-document splitsen in afzonderlijke bestanden Elke n pagina's met een indrukwekkende functie

Een Word-document splitsen in afzonderlijke bestanden Elke n pagina's met VBA-code

Om een groot document op te splitsen in afzonderlijke bestanden op basis van elke n pagina’s, gebruikt u de volgende VBA-code. Volg deze stappen:

  1. Houd ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
  2. Klik op Invoegen>Module, en kopieer en plak de volgende code in de lege module:
    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. Nadat u de code hebt geplakt, klikt u in het venster Microsoft Visual Basic for Applications op Extra > Verwijzingen. In het dialoogvenster Verwijzingen - Project vinkt u in de lijst Beschikbare verwijzingen de optie Microsoft VBScript Regular Expressions 5,5 aan. Zie de schermafbeeldingen:
    VBA-venster met Extra > Referenties geselecteerdPijlMicrosoft VBScript Regular Expressions 5.5 aangevinkt in het dialoogvenster Referenties - Project
  4. Klik op OK en druk vervolgens op F5 om de code uit te voeren.
  5. Er verschijnt een dialoogvenster Bladeren naar map. Selecteer de map waarin u de gesplitste bestanden wilt opslaan en klik op OK.

    6. Dialoogvenster Map zoeken

  6. Er verschijnt nog een melding waarin u wordt gevraagd in hoeveel pagina’s u het document wilt splitsen. Voer het gewenste aantal pagina’s in en klik op OK.

    7. Dialoogvenster voor het invoeren van het paginanummer waarop gesplitst moet worden

  7. Het document wordt gesplitst in afzonderlijke bestanden, elk om de n pagina’s. Bekijk de resultaten in de opgegeven map.

    8. Het document wordt elke N pagina's opgesplitst in afzonderlijke bestanden

Een Word-document splitsen in afzonderlijke bestanden Elke n pagina's met een indrukwekkende functie

Kutools voor Word biedt een krachtige Splitsen-functie waarmee u snel een groot Word-document kunt splitsen in meerdere afzonderlijke bestanden op basis van Kop 1, pagina-einden, sectie-einden of pagina’s. Deze functie stroomlijnt wat anders een tijdrovend handmatig proces zou zijn.

Kutools voor Word

Kutools voor Word helpt u alledaagse documenttaken sneller aan te pakken met praktische tools die direct in Microsoft Word zijn ingebouwd – zonder coderen en zonder ingewikkelde installatie.

  • AI-schrijven, -verfijnen, -vertalen en -samenvatten
  • Batch Zoeken en Vervangen in documenten
  • Word-documenten eenvoudig samenvoegen en splitsen
  • Batchconversie tussen Word en PDF
DownloadenMeer informatie
  1. Klik op KUTOOLS PLUS>Splitsen.

    Splits-knop op het Kutools-tabblad op het lint

  2. Configureer in het verschijnende dialoogvenster de volgende opties naar behoefte:
    1. Selecteer de Elke n pagina's-optie in het Splitsen op-menu.
    2. Voer de n-waarde in het invoervak in.
    3. Kies een opslaggebied.
    4. Geef een voorvoegsel op voor de gesplitste documenten.

      Dialoogvenster Document splitsen

  3. Nadat u de instellingen hebt voltooid, klikt u op OK. Het document wordt gesplitst in meerdere bestanden op basis van de geselecteerde optie (bijvoorbeeld elke 7 pagina’s).Het document wordt elke N pagina's opgesplitst in afzonderlijke bestanden

Met de functie Splitsen in Kutools voor Word verdeel je grote documenten eenvoudig en efficiënt in kleinere, beheersbare bestanden.

Wilt u soortgelijke taken in Word sneller uitvoeren? Probeer Kutools voor Word en vereenvoudig uw dagelijkse werk!

DownloadenMeer informatie

Beste kantoorproductiviteitstools

Kutools voor Word – Verrijk uw Word-ervaring met meer dan 100 opmerkelijke functies!

🤖KUTOOLS AI-functies: AI-assistent / Realtime-assistent / Super Polish (opmaak behouden) / Super Vertalen (opmaak behouden) / AI-redactie / AI-proeflezen...

📘Documentbeheer: Pagina's splitsen, documenten samenvoegen, selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML…), batchconversie naar PDF…

✏Inhoudsbewerking: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen herschalen / Tabel transponeren: rijen en kolommen omwisselen / Tabel naar tekst converteren...

🧹Moeiteloos opschonen: Veeg overbodige spaties, sectie-einden, tekstvakken en hyperlinks weg. Ga voor nog meer verwijderopties naar de Verwijderen-groep...

➕Creatieve invoegingen: Voeg duizendtalscheidingstekens, selectievakjes, keuzerondjes, QR-codes, streepjescodes en meerdere afbeeldingen in. Ontdek meer in de Invoegen-groep...

🔍Precieze selecties: Selecteer nauwkeurig specifieke pagina's, tabellen, vormen en kopteksten. Verbeter je navigatie met de meer-functies Selecteren…

⭐Sterverhogingen: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Schakelen tussen documentvensters / 11 conversietools Conversie...

🌍Ondersteunt 40+ talen: Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Kutools for Word tabbladen op het lint
 
 

Office Tab– Brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

  • Schakel tabbladbewerking en -lezen in in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoog uw productiviteit met 50 % en bespaar dagelijks honderden muisklikken!

✨ Kutools for Office – Één installatie, vijf krachtige tools!

Bevat Office Tab Pro·Kutools voor Excel·Kutools voor Outlook·Kutools voor Word·Kutools for PowerPoint

📦 Ontvang alle 5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Tijd besparen en verhoog direct uw productiviteit

Beste kantoorproductiviteitstools

Kutools voor Word– 100+ Tools voor Word

Gratis downloadenNu kopenMeer informatie over Kutools