Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe een Word-document te splitsen in afzonderlijke bestanden elke 5 of n pagina's?

Als u een groot Word-document hebt dat honderden pagina's bevat, en nu, wilt u dit document opsplitsen in afzonderlijke bestanden op elke 10- of n-pagina's. Is er een snelle en eenvoudige manier om deze taak op te lossen zonder de pagina's één voor één te kopiëren en plakken?

Splits een Word-document in afzonderlijke bestanden op elke 10- of n-pagina's met VBA-code

Splits een Word-document in afzonderlijke bestanden op elke 1-pagina met Kutools voor Word


Een Word-document splitsen in afzonderlijke bestanden op basis van elke pagina:

Doordat uw bureau Kutools for Word's spleet functie, kunt u een groot Word-document snel opsplitsen in meerdere afzonderlijke bestanden op basis van Heading1, pagina-einde, sectie-einde en pagina.

doc gesplitst woord elke n pagina's 9

Kutools for Word: met meer dan 100 handige invoegtoepassingen voor Word, gratis om zonder beperkingen in 60-dagen te proberen. Klik om te downloaden en gratis proef nu!


Splits een Word-document in afzonderlijke bestanden op elke 10- of n-pagina's met VBA-code

Om een ​​groot document te splitsen in afzonderlijke bestanden op basis van elke 10- of n-pagina's, kan de volgende VBA-code u een plezier doen, doe dit als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. En klik vervolgens op bijvoegsel > module, kopieer en plak onderstaande code in de geopende lege module:

VBA-code: split een document in afzonderlijke bestanden op elke 10- of n-pagina's:

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 page count you want to 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 the page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", 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. Na het plakken van de bovenstaande code, nog steeds in de Microsoft Visual Basic voor toepassingen venster, klik alstublieft Gereedschap > Referentiesen in de popping out Referenties-Project dialoogvenster Microsoft VBScript reguliere expressies 5.5 optie in het Beschikbare verwijzingen keuzelijst, zie screenshot:

doc gesplitst woord elke n pagina's 1

4. Dan klikken OK knop en druk vervolgens op F5 toets om deze code uit te voeren, en a Blader naar de map dialoogvenster wordt weergegeven, selecteer een map waarin u de gesplitste bestanden wilt plaatsen, zie screenshot:

doc gesplitst woord elke n pagina's 2

5. Dan klikken OK knop en er verschijnt een ander promptvak om u eraan te herinneren dat u het paginanummer moet invoeren dat u wilt splitsen op basis van, zie screenshot:

doc gesplitst woord elke n pagina's 3

6. En klik vervolgens op OK knop, het actieve Word-document is opgesplitst in afzonderlijke bestanden op elke 10-pagina's, dan kunt u naar de opgegeven map gaan om de resultaten te bekijken:

doc gesplitst woord elke n pagina's 4


Splits een Word-document in afzonderlijke bestanden op elke 1-pagina met Kutools voor Word

Kutools for Word bevat een krachtige functie- spleet functie, met dit hulpprogramma kunt u een groot Word-document snel opsplitsen in meerdere afzonderlijke bestanden op basis van Heading1, pagina-einde, sectie-einde en pagina.

Kutools for Word : met meer dan 100 handige Word-invoegtoepassingen, gratis om zonder beperkingen in 60-dagen te proberen.

Na het installeren van Kutools for Word, doe alsjeblieft als volgt:

1. Klikken Enterprise > spleetzie screenshot:

doc gesplitst woord elke n pagina's 5

2. In de popped out Document splitsen dialoogvenster, klik doc gesplitst woord elke n pagina's 7 om een ​​map te selecteren om de gesplitste bestanden te plaatsen en kies vervolgens Pagina van de Splitsen door drop-down lijst, zie screenshot:

doc gesplitst woord elke n pagina's 6

3. Klik na het voltooien van de instellingen op OKen het hele document wordt opgesplitst in meerdere bestanden op basis van elke pagina, zie screenshot:

doc gesplitst woord elke n pagina's 8

Klik om Kutools voor Word te downloaden en nu gratis uitproberen!




Aanbevolen Word-productiviteitstools

Kutools voor Word - meer dan 100 geavanceerde functies voor Word, bespaar uw 50% tijd

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mike · 3 months ago
    For me, the VBA creates a single document that is a copy of the original and that's it.
  • To post as a guest, your comment is unpublished.
    Studia · 3 months ago
    The VBscript code made Word crash. I was trying to split a 32Mb Word file with many pages but it seems Word can't handle it through VBscript.
    Thanks anyway
    • To post as a guest, your comment is unpublished.
      skyyang · 3 months ago
      Hello, Studia,
      The VBA code may crash when there is a large document, it is not stable, so I recommend you use our Kutools for Word tool, it has updated, and support to solve this task, you can download it and free trial 30 day.
      Please try, thank you!
  • To post as a guest, your comment is unpublished.
    Sergey · 5 months ago
    VBA Script: Split a document into separate files every 10 or n pages not worked
    • To post as a guest, your comment is unpublished.
      skyyang · 4 months ago
      Hello, Sergey,
      The above code works well in my Word document, which Word version do you use?
      And which step went wrong in your operation?
  • To post as a guest, your comment is unpublished.
    Lena · 6 months ago
    i have been trying to split a word file of 166 pages and it gives 166 files each with 166 pages?