Anstatt das Dokument manuell in mehrere Dokumente aufzuteilen, führt diese Methode einen VBA ein, um ein Word-Dokument nach dem in Word angegebenen Trennzeichen aufzuteilen. Bitte gehen Sie wie folgt vor:

1. Drücken Sie Alt + F11 Tasten zusammen drücken, um das Microsoft Visual Basic für Anwendungsfenster zu öffnen;

2. Klicken Sie Insert > Modulund fügen Sie dann den folgenden VBA-Code in das neu öffnende Modulfenster ein.

VBA: Word-Dokument nach Trennzeichen in mehrere Dokumente aufteilen

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. Dann klick Run Taste oder drücken Sie die Taste F5, um den VBA anzuwenden.

4. Klicken Sie im herausspringenden Microsoft Word-Dokument auf die Schaltfläche Ja, um fortzufahren.

Hinweis:
(1) Fügen Sie Ihr Trennzeichen wie folgt hinzu "///" im Untertest zum Dokument zwischen jedem Textabschnitt, den Sie trennen möchten. Sie können auch ändern "///" an alle Begrenzer, um Ihren Bedarf zu decken.
(2) Sie können die Dokumente ändern "Anmerkungen" im Subtest nach Ihren Wünschen.
(3) Die aufgeteilten Dokumente werden an derselben Stelle wie die Originaldatei gespeichert.
(4) Sie müssen am Ende der Originaldatei kein Trennzeichen einfügen. Andernfalls wird nach dem Teilen ein leeres Dokument angezeigt.

Hier ist ein weiterer VBA, mit dem Sie ein Word-Dokument in Word schnell auf mehrere Seiten aufteilen können. Bitte gehen Sie wie folgt vor:

1. Drücken Sie Alt + F11 Tasten zusammen drücken, um das Microsoft Visual Basic für Anwendungsfenster zu öffnen;

2. Klicken Sie Insert > Modulund fügen Sie dann den folgenden VBA-Code in das neu öffnende Modulfenster ein.

VBA: Dokument in Seite nach Seite in Word in mehrere Dokumente aufteilen

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. Dann klick Run Taste oder drücken F5 Schlüssel zum Anwenden des VBA.

Hinweis: Die aufgeteilten Dokumente werden an derselben Stelle wie die Originaldatei gespeichert.

Wenn Sie Kutools for Word installiert haben, können Sie es anwenden Split Funktion zum einfachen Aufteilen eines Dokuments in mehrere Dokumente nach Seite, Überschrift, Abschnittswechsel oder Seitenumbruch, wie Sie es in Word benötigen.

1.Klicken Kutoolen Plus > Split um das zu ermöglichen Split Feature.

2. Im sich öffnenden Dialogfeld "Teilen" auf dem Bildschirm können Sie folgende Schritte ausführen:

(1) Wählen Sie den Aufteilungsweg aus dem Geteilt durch Dropdown-Liste.
Diese Funktion unterstützt 6 Aufteilungsmöglichkeiten: Überschrift 1, Seitenumbrüche, Abschnittsumbrüche, Seiten, alle n Seiten und benutzerdefinierte Seitenbereiche, wie im folgenden Screenshot gezeigt:

(2) Klicken Sie auf Entdecken Taste im nun erscheinenden Bestätigungsfenster nun wieder los.  spezifizieren den Zielordner, in dem Sie die geteilten Dokumente speichern;

(3) Geben Sie ein Schlüsselwort als Präfix für neue Dokumentnamen in das Feld ein Dokumentpräfix Box.

Tipps:
(1) Wenn Sie die Aufteilung angeben, wird das aktuelle Dokument durch Alle n Seitenmüssen Sie die Nummer in der Alle n Seiten Box;

(2) Wenn Sie angeben, dass das aktuelle Dokument nach benutzerdefinierten Seitenbereichen aufgeteilt werden soll, müssen Sie diese benutzerdefinierten Seitenbereiche durch Kommas getrennt in das Feld eingeben Seite Geben Sie beispielsweise 1, 3-5, 12 in das Feld ein.

3. Drücke den Ok Taste, um die Aufteilung zu starten.

Anschließend wird das aktuelle Dokument auf die angegebene Aufteilungsmethode aufgeteilt, und neue Dokumente werden in großen Mengen im Zielordner gespeichert.