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
- Teilen Sie das Word-Dokument mit VBA seitenweise
- Teilen Sie das Word-Dokument nach Überschrift / Seite / Abschnittswechsel / Seitenumbruch mit Kutools for Word
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.
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!
Relative Artikel:
Beste Office-Produktivitätstools
Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!
🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren / Text umschreiben / Dokumente zusammenfassen / Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word
📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / 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 Reinigung: Wegfegen Zusätzliche Räume / Abschnittswechsel / Alle Header / Textfelder / Hyperlinks / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...
➕ Kreative Einsätze: Einfügen Tausend Trennzeichen / Kontrollkästchen / Radio Knöpfe / QR Code / Strichcode / Diagonale Linientabelle / Gleichungsbeschriftung / Bildunterschrift / Tabellenüberschrift / Mehrere Bilder / Entdecken Sie mehr im Gruppe einfügen...
🔍 Präzise Auswahl: Punktgenau bestimmte Seiten / Tabellen / Formen / Überschriften von Absätzen / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...
⭐ Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort / Sich wiederholenden Text automatisch einfügen / Wechseln Sie nahtlos zwischen Dokumentfenstern / 11 Konvertierungstools...