I stedet for at opdele dokument i flere dokumenter manuelt, introducerer denne metode en VBA til at opdele et Word-dokument med den angivne afgrænser i Word. Gør som følger:

1. Trykke Alt + F11 nøgler sammen for at åbne vinduet Microsoft Visual Basic til applikation;

2. Klik indsatte > Moduler, og indsæt derefter under VBA-kode i det nye åbningsmodulvindue.

VBA: Opdel Word-dokument i flere dokumenter af delimiter

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. Klik derefter på Kør eller tryk på F5-tasten for at anvende VBA.

4. Klik på Ja-knappen for at komme videre, når Microsoft Word-dokumentet vises.

Bemærk:
(1) Sørg for at tilføje din afgrænser som den samme som "///" i undertesten til dokumentet mellem hver sektion af tekst, du ønsker at adskille. Du kan også ændre "///" til eventuelle afgrænsere for at imødekomme dit behov.
(2) Du kan ændre dokumenterne "Noter" i underprøven, der passer til dine behov.
(3) Og opdelingsdokumenterne gemmes samme sted med den originale fil.
(4) Du behøver ikke tilføje afgrænser til slutningen af ​​den originale fil. Hvis du gør det, vil der være et tomt dokument efter opdeling.

Her er en anden VBA, der hjælper dig med hurtigt at opdele et Word-dokument til flere efter side i Word. Gør som følger:

1. Trykke Alt + F11 nøgler sammen for at åbne vinduet Microsoft Visual Basic til applikation;

2. Klik indsatte > Moduler, og indsæt derefter under VBA-kode i det nye åbningsmodulvindue.

VBA: Opdel dokument i flere dokumenter efter side i 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. Klik derefter på Kør knappen eller tryk på F5 nøgle til at anvende VBA.

Bemærk: Opdelingsdokumenterne gemmes samme sted med den originale fil.

Hvis du har Kutools for Word installeret, kan du anvende dens Dele funktion til let at opdele et dokument i flere efter side, overskrift, sektionsskift eller sideskift, som du har brug for i Word ..

1.Klik Kutools Plus > Dele at aktivere Dele funktion.

2. I åbningsdialogen på skærmen kan du gøre som følger:

(1) Vælg den splittende måde fra Opdel ved rulleliste.
Denne funktion understøtter 6 opdelingsmåder: overskrift 1, sideskift, sektionsskift, sider, hver n-side og tilpassede sideområder som vist nedenstående skærmbillede:

(2) Klik på Gennemse .  at specificere destinationsmappen, du vil gemme de opdelte dokumenter i;

(3) Indtast et nøgleord som præfikset for nye dokumentnavne i Dokumentpræfiks boks.

tips:
(1) Hvis du angiver opdeling af det aktuelle dokument efter Hver n side, skal du angive nummeret i Hver n side boks;

(2) Hvis du angiver at opdele det aktuelle dokument efter brugerdefinerede sideområder, skal du indtaste disse brugerdefinerede sideområder adskilt af kommaer i Side i feltet, skriv f.eks. 1, 3-5, 12 i feltet.

3. Klik på Ok knap for at starte opdeling.

Derefter opdeles det aktuelle dokument på den angivne opdelings måde, og nye dokumenter gemmes i destinationsmappen i bulk.