Hoe een document in meerdere documenten in Word opsplitsen?
Als je een enorm Word-document hebt dat je in meerdere documenten moet splitsen, neem dan een paar minuten om deze tutorial te lezen. Deze tutorial laat je twee methoden zien om een document in meerdere documenten te splitsen.
- Splits Word-document op opgegeven scheidingsteken met VBA
- Splits Word-document per pagina met VBA
- Splits Word-document op kop / pagina / sectie-einde / pagina-einde met Kutools voor Word
Splits Word-document op opgegeven scheidingsteken met VBA
In plaats van het document handmatig in meerdere documenten te splitsen, introduceert deze methode een VBA om een Word-document te splitsen door het opgegeven scheidingsteken in Word. Ga als volgt te werk:
1. pers Alt + F11 toetsen samen om het Microsoft Visual Basic for Application-venster te openen;
2. Klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe openingsmodule-venster.
VBA: Word-document splitsen in meerdere documenten per scheidingsteken
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. Dan klikken lopen knop of druk op F5 toets om de VBA toe te passen.
4. Klik in het pop-up Microsoft Word-document op de knop Ja om door te gaan.
Opmerking:
(1) Zorg ervoor dat u uw scheidingsteken op dezelfde manier toevoegt als "///" in de subtest van het document tussen elke tekstsectie die u wilt scheiden. U kunt ook wijzigen "///" naar eventuele scheidingstekens om aan uw behoefte te voldoen.
(2) U kunt de documenten wijzigen "Notes" in de subtest om aan uw behoeften te voldoen.
(3) En de gesplitste documenten worden op dezelfde plaats opgeslagen als het originele bestand.
(4) U hoeft geen scheidingsteken toe te voegen aan het einde van het originele bestand, als u dat doet, zal er na het splitsen een blanco document zijn.
Splits Word-document per pagina met VBA
Hier is nog een VBA om u te helpen snel een Word-document op meerdere pagina's in Word te splitsen. Ga als volgt te werk:
1. pers Alt + F11 toetsen samen om het Microsoft Visual Basic for Application-venster te openen;
2. Klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe openingsmodule-venster.
VBA: document splitsen in meerdere documenten per pagina in Word
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 _
(the one currently containing the Selection)
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 (there won't be a 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. Dan klikken lopen knop of druk op F5 sleutel om de VBA toe te passen.
Opmerking: De gesplitste documenten worden op dezelfde plaats opgeslagen als het originele bestand.
Splits Word-document op kop / pagina / sectie-einde / pagina-einde met Kutools voor Word
Als je Kutools for Word hebt geïnstalleerd, kun je het toepassen Split functie om eenvoudig een document op te splitsen in meerdere documenten per pagina, kop, sectie-einde of pagina-einde zoals je nodig hebt in Word.
1.Klik Koetools Plus > Split om de Split kenmerk.
2. In het openingsvenster Splitsen op het scherm kunt u het volgende doen:
(1) Kies de splitsingsmanier van de Gesplitst door keuzelijst.
Deze functie ondersteunt 6 splitsingsmanieren: kop 1, pagina-einden, sectie-einden, pagina's, elke n-pagina en aangepaste paginabereiken zoals onderstaand screenshot:
(2) Klik op het Blader specificeren de doelmap waarin u de gesplitste documenten opslaat;
(3) Typ een trefwoord in als het voorvoegsel van nieuwe documentnamen in het Documentvoorvoegsel doos.
Tips:
(1) Als u specificeert de splitsing van het huidige document door Elke n pagina's, moet u het nummer specificeren in het Elke n pagina's doos;
(2) Als u specificeert om het huidige document te splitsen op basis van aangepaste paginabereiken, moet u deze aangepaste paginabereiken invoeren, gescheiden door komma's in de Pagina Typ bijvoorbeeld 1, 3-5, 12 in het vak.
3. Klik op de Ok knop om te beginnen met splitsen.
Vervolgens wordt het huidige document op de gespecificeerde manier gesplitst en worden nieuwe documenten in bulk in de doelmap opgeslagen.
Bladeren en bewerken met tabbladen in meerdere Word-documenten zoals Firefox, Chrome, Internet Explore 10!
U bent wellicht bekend om meerdere webpagina's in Firefox / Chrome / IE te bekijken en tussen de webpagina's te schakelen door eenvoudig op de overeenkomstige tabbladen te klikken. Hier ondersteunt Office Tab vergelijkbare verwerking, waardoor u door meerdere Word-documenten in één Word-venster kunt bladeren en gemakkelijk tussen de documenten kunt schakelen door op hun tabbladen te klikken. Klik voor gratis proefversie met volledige functies!
Relatieve artikelen:
Beste Office-productiviteitstools
Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!
🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren / Herschrijf tekst / Documenten samenvatten / Informeer voor informatie gebaseerd op document, allemaal binnen Word
📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...) / Batchconversie naar PDF / Pagina's exporteren als afbeeldingen / Meerdere bestanden tegelijk afdrukken...
✏ Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden / Formaat van alle afbeeldingen wijzigen / Tabelrijen en -kolommen transponeren / Converteer tabel naar tekst...
🧹 Moeiteloos schoon: Veeg weg Extra ruimtes / Sectie-onderbrekingen / Alle koppen / Tekstvakken / hyperlinks / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...
➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens / Vink vakjes aan / Radio knoppen / QR Code / Barcode / Diagonale lijntabel / Vergelijking bijschrift / Bijschrift bij afbeelding / Tabel titel / Meerdere afbeeldingen / Ontdek meer in de Groep invoegen...
???? Precisieselecties: Vaststellen specifieke pagina's / tafels / vormen / kop paragrafen / Verbeter de navigatie met meer Selecteer functies...
⭐ Sterverbeteringen: Navigeer snel naar elke locatie / automatisch herhaalde tekst invoegen / naadloos schakelen tussen documentvensters / 11 Conversiehulpmiddelen...