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.

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.

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.