Note: The other languages of the website are Google-translated. Back to English

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 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.

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 Run 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 ein praktisches Add-In, um Ihre Arbeit zu erleichtern und Ihre Fähigkeit zur Verarbeitung von Word-Dokumenten zu verbessern. Kostenlose Testversion für 60 Tage! Hol es dir jetzt!

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.

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:



Empfohlene Word-Produktivitätswerkzeuge

 

Kutools für Word - Mehr als 100 erweiterte Funktionen für Word, sparen Sie 50% Zeit

  • Komplizierte und wiederholte Vorgänge können in Sekunden einmalig verarbeitet werden.
  • Fügen Sie mehrere Bilder über Ordner hinweg gleichzeitig in ein Word-Dokument ein.
  • Führen Sie mehrere Word-Dateien in Ordnern zu einer gewünschten Reihenfolge zusammen.
  • Teilen Sie das aktuelle Dokument nach Überschrift, Abschnittswechsel oder anderen Kriterien in separate Dokumente auf.
  • Konvertieren Sie Dateien zwischen Doc und Docx, Docx und PDF, eine Sammlung von Tools für allgemeine Konvertierungen und Auswahl usw.
Kommentare (45)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wenn ich versuche, das Word-Dokument mit dem obigen VB-Code aufzuteilen, wird es aufgeteilt, indem alle Bilder und eingefügten Objekte entfernt werden.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe ein ähnliches Problem wie Dhamo. Ich habe mit einer großen Datei mit vielen eingebetteten Inhaltssteuerelementen begonnen. Als ich meine Word-Datei mit dem VB-Code aufteilte, wurden alle Inhaltssteuerelemente in normalen Text konvertiert. Gibt es eine Möglichkeit, eine Datei zu teilen, ohne die Formatierung des Originals zu verlieren?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo. Wie kann ich mit diesen Skripten .doc nicht auf eine Seite pro Dokument aufteilen? ZB 10 oder 5 Seiten pro Dokument
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sehr geehrtes Team, VBA zum Aufteilen von Dokumenten in mehrere einseitige Dokumente funktioniert gut, aber das Problem ist, dass geteilte Dokumente nicht die Tabellenformate haben (Tabellenformate im Hauptdokument sind in geteilten Dokumenten nicht als Tabelle formatiert). Vielen Dank im Voraus, wenn ich die Makros bekommen kann, damit Tabellenformate in Masterdokumenten in geteilten Dokumenten nicht gestört werden
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sehr hilfreich danke! Mein Originaldokument war auf „schreibgeschützt“ eingestellt. Dies wird nicht in die neuen Dokumente übertragen. Kann man das hinzufügen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Kutools for Word funktioniert nicht für schreibgeschützte Dokumente.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Leider kann ich mit Kutools keine Seiten teilen. Was kann ich tun? Ich erhalte diese Fehlermeldung: Informationen über das Aufrufen von JIT-Debuggen anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung. ************** Ausnahmetext ************** System.NotSupportedException: Das angegebene Pfadformat wird nicht unterstützt. bei System.Security.Util.StringExpressionSet.CanonicalizePath(String path, Boolean needFullPath) bei System.Security.Util.StringExpressionSet.CreateListFromExpressions(String[] str, Boolean needFullPath) bei System.Security.Permissions.FileIOPermission.AddPathList(FileIOPermissionAccess access, AccessControlActions control, String[] pathListOrig, Boolean checkForDuplicates, Boolean needFullPath, Boolean copyPathList) bei System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess access, String[] pathList, Boolean checkForDuplicates, Boolean needFullPath) bei System.IO.Directory. InternalCreateDirectoryHelper(String path, Boolean checkHost) bei System.IO.Directory.CreateDirectory(String path) bei Kutools.FormDocumentSplit.€ () bei Kutools.FormDocumentSplit.› (Object “ , EventArgs ” ) bei System.Windows.Forms.Control. OnClick(EventArgs e) bei System.Windows.Forms.Button.OnClick(EventArgs e) bei System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) bei System.Windows.F orms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) bei System.Windows.Forms.Control.WndProc(Message& m) bei System.Windows.Forms.ButtonBase.WndProc(Message& m) bei System.Windows.Forms. Button.WndProc(Message& m) bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) bei System.Windows.Forms.NativeWindow.Callback( IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Zu schwer für einen Rentner zu verstehen, was mit der alten Art und Weise passiert ist, wie Windows XNUMX war, dieses Programm war für uns ältere Menschen so einfach zu befolgen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dein Makro funktioniert WIRKLICH gut, aber ich verlange, dass die geteilten Dokumente ihre schmalen Ränder und ihr zweispaltiges Layout beibehalten. Mehr Glück als Urteil (!), Ich habe es geschafft, dies manuell zu erreichen, und das Endergebnis war genau so, wie ich es wollte. Ich habe dann den Makrorecorder verwendet, habe aber keine Kenntnisse von Word VBA, um den aufgezeichneten Code zu ändern, um dies zu erreichen. Kannst du helfen? Danke im Voraus!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe den ersten geteilten Dokumentcode ausprobiert und es hat nicht funktioniert. Es sagte, es würde es in drei Abschnitte aufteilen, aber das tat es nicht.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Die erste VBA teilt das aktuelle Dokument durch das Trennzeichen „///“. Haben Sie in Ihrem Dokument das Trennzeichen "///" hinzugefügt?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vergiss es, ich habe es mehrmals mit den Buchstabennummern versucht, was nicht funktioniert hat, dann habe ich gesehen, dass es meine Kommentare gelöscht hat. Nur um zu bemerken, dass der erste Code bei mir nicht funktioniert hat, er sagte, er würde das Dokument in drei Abschnitte aufteilen, tat es aber nicht.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Weiß jemand, wie man den Namen der Dateien ändert, nachdem ich die Hauptdatei geteilt habe? Ich möchte die Namen gemäß dem Header der Datei ändern
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe den VBA-Code gemacht: Dokument nach Trennzeichen in mehrere Dokumente aufteilen, es teilt das Dokument auf, aber leider werden die Grafiken gelöscht, auch die Formatierung. Gibt es dafür eine Lösung?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke für den Makrocode
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke, das war sehr hilfreich!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Du hast mir gerade verdammt viel Zeit gespart, danke!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank !

Eine Frage: Haben Sie eine Idee, alle geteilten Dokumente als PDF zu speichern?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe den Code aus dem Abschnitt "Word-Dokument nach Seite mit VBA teilen" verwendet. Es hat funktioniert, die Dokumente aufzuteilen, aber die Formatierung durcheinander gebracht - was dazu führte, dass das, was auf 2 Seiten hätte sein sollen, stattdessen auf 5 Seiten war. Ich habe mit dem Code herumgespielt und am Ende eine Lösung gefunden.


Ich habe diese Zeile ersetzt: docSingle.Range.Paste 'Fügen Sie den Inhalt der Zwischenablage in das neue Dokument ein

mit dieser Zeile: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

Ich hoffe, das hilft einigen von Ihnen, die Formatierungsprobleme hatten.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe den Code aus dem Abschnitt "Word-Dokument nach Seite mit VBA teilen" verwendet. Wie sollte ich den Code ändern, um den ursprünglichen Header in allen neuen Dateien beizubehalten?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
wie einzelne Merge-Add-Ons
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Die Funktion Teilen (Dokument) von Kutools for Word kann Benutzern helfen, ein Word-Dokument nach Überschrift 1, Seitenumbruch, Abschnittsumbruch oder Seite zu teilen.
Darüber hinaus enthält Kutools for Word auch die Zusammenführungsfunktion, um mehrere Word-Dokumente zu einem zusammenzuführen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich muss das Dokument mithilfe des Seitenbereichs aufteilen. Zum Beispiel wollte ich 1 bis 10 Seiten in einem anderen Dokument aufteilen. wie kann ich es tun
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo - ich habe dieselbe Frage, gibt es eine Möglichkeit, dies zu tun?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Können Sie das Dokument basierend auf den Stilen von Überschrift 1 als "Trennzeichen" aufteilen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Andreas,
Das VBA-Skript kann das gesamte Dokument seitenweise aufteilen. Wenn Sie nach Überschrift 1 aufteilen müssen, empfehlen wir, die Funktion „Split (Document)“ von Kutools for Word auszuprobieren.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Heruntergeladener Ordner öffnet sich überhaupt nicht. Lange gewartet.
Es sind noch keine Kommentare vorhanden
Mehr laden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL