Direkt zum Inhalt

Wie kann man ein Dokument in Word in mehrere Dokumente aufteilen?

Wenn Sie ein umfangreiches Word-Dokument haben, das Sie in mehrere Dokumente aufteilen müssen, nehmen Sie sich ein paar Minuten Zeit, um dieses Tutorial zu lesen. Dieses Tutorial zeigt Ihnen zwei Methoden zum Aufteilen eines Dokuments in mehrere Dokumente.


Teilen Sie das Word-Dokument nach dem angegebenen Trennzeichen mit VBA

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 Führen Sie 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.

Teilen Sie das Word-Dokument mit VBA seitenweise

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 Führen Sie Taste oder drücken F5 Schlüssel zum Anwenden des VBA.

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


Teilen Sie das Word-Dokument nach Überschrift / Seite / Abschnittswechsel / Seitenumbruch mit Kutools for Word

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.

Kutools for Word ist das ultimative Word-Add-In, das Ihre Arbeit rationalisiert und Ihre Dokumentverarbeitungsfähigkeiten verbessert. Probieren Sie es KOSTENLOS aus 60 Tage! Hol es dir jetzt!

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

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.

Durchsuchen und Bearbeiten mehrerer Word-Dokumente mit Registerkarten wie Firefox, Chrome, Internet Explore 10!

Möglicherweise kennen Sie mehrere Webseiten in Firefox / Chrome / IE und wechseln zwischen ihnen, indem Sie einfach auf die entsprechenden Registerkarten klicken. Hier unterstützt Office Tab eine ähnliche Verarbeitung, mit der Sie mehrere Word-Dokumente in einem Word-Fenster durchsuchen und einfach zwischen ihnen wechseln können, indem Sie auf deren Registerkarten klicken. Klicken Sie hier für eine kostenlose Testversion mit allen Funktionen!
Durchsuchen Sie mehrere Word-Dokumente in einem Fenster als Firefox


Relative Artikel:


Beste Office-Produktivitätstools

Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!

Tauchen Sie ein in die hervorgehobenen Funktionen unten oder Klicken Sie hier, um die volle Leistungsfähigkeit von Kutools for Word zu entdecken.

📘 Dokumentenbeherrschung: Seiten teilen  /  Dokumente zusammenführen  /  Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/XLSX)  /  Stapelkonvertierung in PDF  /  Seiten als Bilder exportieren  /  Drucken Sie mehrere Dateien gleichzeitig ...

Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg   /  Größe aller Bilder ändern   /  Vertauschen Sie Tabellenzeilen und -spalten  /  Tabelle in Text konvertieren ...

🧹 Mühelose ReinigungWegfegen Zusätzliche Räume  /  Abschnittswechsel  /   Alle Header  /  Textfelder  /  Hyperlinks  /  Weitere Entfernungswerkzeuge finden Sie in unserer Entfernungsgruppe

Kreative Einsätze: Insert Tausend Trennzeichen  /  Kontrollkästchen  /  Radio Knöpfe  /  QR Code  /  Strichcode  /  Diagonale Linientabelle  /  Gleichungsbeschriftung  /  Bildunterschrift  /  Tabellenüberschrift  /  Mehrere Bilder  /  Entdecken Sie mehr in unserer Beilagengruppe

🔍 Präzise Auswahl: Lokalisieren Sie bestimmte Seiten  /  Tabellen  /  Formen  /  Überschriften von Absätzen  /  Navigieren Sie ganz einfach mit unserer Select Group

Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort  /  Sich wiederholenden Text automatisch einfügen  /  Wechseln Sie nahtlos zwischen Dokumentfenstern  /  11 Konvertierungstools ...

Verwandeln Sie Ihre Word-Aufgaben mit Kutools. 👉 Jetzt mit 30-Tage-Testversion herunterladen 🚀.

 
Comments (45)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
VBA: Split Document into Multiple Documents by Page in Word - in this when we run it, outcome comes in portrait layout only. If original doc is in landscape then full data of the original doc does not come in the pages breaked by this vba.. There must be seperate vba for portrait and landscape docs.
This comment was minimized by the moderator on the site
I use the "split"-function of "Kutools For Word 9.00" with "header 1" and it works for 48 documents and then it simply stops without any message, as if it wohl have been finished. But I have 700 "header 1" in a 2000 pages document!
Is it simply too much for the tool or is there any other reason?
This comment was minimized by the moderator on the site
your code add new blank page in every page
This comment was minimized by the moderator on the site
This worked fine up until yesterday with Office365, but now I constantly get a runtime error '4605' stating this command is not available. Sometimes at the first page, sometimes at the 3rd page...I can't make it past 3 pages anymore. It happens with line 28 above...

docSingle.Range.Paste 'paste the clipboard contents to the new document
This comment was minimized by the moderator on the site
I've got this error too - Did you get anywhere with it?


Thanks
This comment was minimized by the moderator on the site
yes...i have to run it on the local hard drive. if i run it on a network file or with RemotePC it. has something to do with the script having to wait too long in between commands and it errors out copy and pasting to the clipboard. hope that helps!!
This comment was minimized by the moderator on the site
I copied the document distribution macro 'Split Word Document By Specified Delimiter With VBA', but in the line of 'sub test', the software reads it as a new macro and there are two macros here.
This comment was minimized by the moderator on the site
The script saves a two pages document, the second is total blank.

How to solve this?
This comment was minimized by the moderator on the site
Hi Jorge,
The VBA script introduced splits document by the separator “///”, and you do not need to add delimiter to the end of the original file, if you do, there will be a blank document after splitting.
This comment was minimized by the moderator on the site
Hi kellytte, Could you please explain a little further? I copy and paste the VBA script under the "Split Word by Document with VBA" from above and after I run the process following the instructions above, I always have to manually delete a 2nd blank page on each of the new documents that were created. Are you saying there is something that needs to be removed from the VBA script that will cause this to stop?
This comment was minimized by the moderator on the site
The split works great for me but on page in the merge file turns into 1.5 pages - something with the page layout (+ additional empty page at the end). any ideas how to go around that?
This comment was minimized by the moderator on the site
The Split Word By Document with VBA worked for me, but it is adding a blank page at the end of each document. Is there a way around this?
This comment was minimized by the moderator on the site
I am working on this as well but have not found a way to do it besides manually.
This comment was minimized by the moderator on the site
Does not work at all for me. Goes through the motions but no documents are saved. Maybe because I am using .DOCX files?
This comment was minimized by the moderator on the site
After playing with this code for over an hour I discovered you have to save the document you mail merged then you can run the code on the saved document that has all the pages you need to split up. Hope this helps.
This comment was minimized by the moderator on the site
I always start with a newly-saved document. I found the split documents were actually saved somewhere (I forget; doesn't matter) they were text only - all the formatting had been dropped.
This comment was minimized by the moderator on the site
Maybe something to do with Windows 7 settings? Thoughts from anyone?
This comment was minimized by the moderator on the site
Mais comment garder une mise en page complexe (image de fond, marges, etc) ?
Great but how to keep the lay-out (background image, margins ?)
This comment was minimized by the moderator on the site
Can you split the document based on Heading 1 styles as your "delimiter".
This comment was minimized by the moderator on the site
Hi Andrew,
The VBA script can split the entire document by page. If you need to split by heading 1, we suggest to try Kutools for Word’s Split (Document) feature.
This comment was minimized by the moderator on the site
Downloaded fodler doesnt open at all. Waiting for a long time.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations