Hoe een Word-document opsplitsen in afzonderlijke bestanden om de 5 of n pagina's?
Wanneer u met grote Word-documenten werkt, moet u het document mogelijk in kleinere, afzonderlijke bestanden splitsen om het gemakkelijker te kunnen hanteren, delen of bewerken. Het splitsen van een document om de 5 of 10 of een bepaald aantal pagina's kan een praktische oplossing zijn om lange inhoud efficiënter te beheren.
Het handmatig één voor één kopiëren en plakken van pagina's is tijdrovend en inefficiënt. In deze zelfstudie introduceren we snelle en eenvoudige methoden om een Word-document elke N pagina's in afzonderlijke bestanden te splitsen:
Splits een Word-document elke N-pagina in afzonderlijke bestanden met VBA-code
Splits een Word-document elke N-pagina in afzonderlijke bestanden met een geweldige functie
Splits een Word-document elke N-pagina in afzonderlijke bestanden met VBA-code
Om een groot document op te splitsen in afzonderlijke bestanden op basis van elke N pagina's, kan de volgende VBA-code u helpen. Volg deze stappen:
- Houd ALT + F11 om de te openen Microsoft Visual Basic voor toepassingen venster.
- Klik Invoegen > Module, en kopieer en plak de volgende code in de lege module:
- Nadat ik de code heb geplakt, nog steeds in de Microsoft Visual Basic voor toepassingen venster klikt Tools > Referenties. In de Referenties - Project dialoogvenster, controleer de Microsoft VBScript reguliere expressies 5.5 optie van de Beschikbare referenties lijst. Zie screenshots:
- Klik OK, Druk dan op F5 om de code uit te voeren.
- A Blader naar de map dialoogvenster verschijnt. Selecteer de map waar u de gesplitste bestanden wilt opslaan en klik op OK.
- Er verschijnt een andere prompt waarin u wordt gevraagd naar het aantal pagina's waarop u wilt splitsen. Voer het gewenste aantal pagina's in en klik op OK.
- Het document wordt elke N pagina's in aparte bestanden gesplitst. Navigeer naar de opgegeven map om de resultaten te bekijken.
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
Splits een Word-document elke N-pagina in afzonderlijke bestanden met een geweldige functie
Kutools for Word bevat een krachtige functie- Split functie, kunt u met dit hulpprogramma snel een groot Word-document opsplitsen in meerdere afzonderlijke bestanden op basis van Heading1, pagina-einde, sectie-einde en pagina.
Tips: Om dit toe te passen Split -functie, ten eerste moet u de Kutools for Worden pas de functie vervolgens snel en gemakkelijk toe.
Na het installeren van Kutools for Word, doe dit als volgt:
1. Klikken Koetools Plus > Split, zie screenshot:
2. Stel in het uitgeklapte dialoogvenster de volgende bewerkingen in zoals u nodig hebt, zie screenshot:
3. Klik na het voltooien van de instellingen op OK, en het hele document wordt opgesplitst in meerdere bestanden op basis van elke pagina, zie screenshot:
Klik om Kutools voor Word en nu gratis uit te proberen!
Beste Office-productiviteitstools
Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!
🤖 Kutools AI-functies: Inhoud genereren / Herschrijf tekst / Vraag en antwoord documenteren / Krijg snelle antwoorden / Documenten vertalen / Pools document (formaat behouden)...
📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...) / Batchconversie naar PDF...
✏ Inhoud bewerken: Batch zoeken en vervangen in meerdere bestanden / Formaat van alle afbeeldingen wijzigen / Tabelrijen en -kolommen transponeren / Converteer tabel naar tekst...
🧹 Moeiteloos schoon: Veeg weg Extra ruimtes / Sectie-onderbrekingen / Tekstvakken / hyperlinks / Ga voor meer verwijdergereedschappen naar de verwijderen groep...
➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens / Vink vakjes aan / Radio knoppen / QR Code / Barcode / Meerdere afbeeldingen / Ontdek meer in de Invoegen groep...
???? Precisieselecties: Vaststellen Specifieke pagina's / Tafels / Vormen / Kopparagrafen / Verbeter de navigatie met meer kies functionaliteiten...
⭐ Sterverbeteringen: Navigeer naar elke locatie / Automatisch herhaalde tekst invoegen / Schakelen tussen documentvensters / 11 Camper ombouw Tools...
Beste Office-productiviteitstools
Kutools for Word - 100+ hulpmiddelen voor Word
- 🤖 Kutools AI-functies: Genereer een , Herschrijven, Samenvatten, Vertalen Documenten / Krijg snelle antwoorden / Pools document (formaat behouden)
- 📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Batchconversie naar PDF
- ✏ Inhoud bewerken: Batch zoeken en vervangen / Formaat van alle afbeeldingen wijzigen
- 🧹 Moeiteloos schoon: Verwijder extra spaties / Verwijder sectie-onderbrekingen
- ➕ Creatieve invoegingen: Voeg scheidingstekens voor duizendtallen in / Selectievakjes invoegen / Maak QR-codes