Wie teilt man ein Word-Dokument in separate Dateien auf, jeweils alle 5 oder n Seiten?
Beim Arbeiten mit großen Word-Dokumenten müssen Sie das Dokument möglicherweise in kleinere, separate Dateien aufteilen, um die Handhabung, Freigabe oder Bearbeitung zu erleichtern. Das Aufteilen eines Dokuments alle 5, 10 oder eine bestimmte Anzahl von Seiten kann eine praktische Lösung sein, um umfangreiche Inhalte effizienter zu verwalten.
Das manuelle Kopieren und Einfügen von Seiten einzeln ist zeitaufwendig und ineffizient. In diesem Tutorial stellen wir schnelle und einfache Methoden vor, um ein Word-Dokument in separate Dateien aufzuteilen, jeweils alle N Seiten:
Teilen Sie ein Word-Dokument mit VBA-Code in separate Dateien auf, jeweils alle N Seiten
Teilen Sie ein Word-Dokument mit VBA-Code in separate Dateien auf, jeweils alle N Seiten
Um ein großes Dokument in separate Dateien basierend auf jeweils N Seiten aufzuteilen, kann der folgende VBA-Code helfen. Folgen Sie diesen Schritten:
- Halten Sie ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
- Klicken Sie auf Einfügen > Modul und kopieren und fügen Sie den folgenden Code in das leere Modul ein:
- Nachdem Sie den Code eingefügt haben, bleiben Sie im Microsoft Visual Basic for Applications Fenster, klicken Sie auf Extras > Referenzen. Im Referenzen - Projekt Dialogfeld aktivieren Sie die Option Microsoft VBScript Regular Expressions 5.5 aus der Liste der Verfügbaren Referenzen Liste. Siehe Screenshots:
- Klicken Sie auf OK, dann drücken Sie F5, um den Code auszuführen.
- Ein Durchsuchen-Ordner Dialogfeld wird angezeigt. Wählen Sie den Ordner aus, in dem Sie die geteilten Dateien speichern möchten, und klicken Sie auf OK.
- Eine weitere Aufforderung erscheint, die nach der Anzahl der Seiten fragt, nach denen Sie teilen möchten. Geben Sie die gewünschte Seitenanzahl ein und klicken Sie auf OK.
- Das Dokument wird in separate Dateien aufgeteilt, jeweils alle N Seiten. Navigieren Sie zum angegebenen Ordner, um die Ergebnisse anzuzeigen.
Sub DocumentSplitter()
Dim xDoc As Document, xNewDoc As Document
Dim xSplit As String, xCount As Long, xLast As Long
Dim xRngSplit As Range, xDocName As String, xFileExt As String
Dim xRegEx As RegExp
Dim xPageCount As Integer
Dim xShell As Object, xFolder As Object, xFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xDoc = Application.ActiveDocument
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
If TypeName(xFolder) = "Nothing" Then Exit Sub
Set xFolderItem = xFolder.Self
xFilePath = xFolderItem.Path & "\"
Application.ScreenUpdating = False
Set xNewDoc = Documents.Add(Visible:=False)
xDoc.Content.WholeStory
xDoc.Content.Copy
xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
With xNewDoc
xPageCount = .ActiveWindow.Panes(1).Pages.Count
L1: xSplit = InputBox("The document contains " & xPageCount & " pages." & _
vbCrLf & vbCrLf & "Please enter the number of pages per split:", "Kutools for Word", xSplit)
If Len(Trim(xSplit)) = 0 Then Exit Sub
Set xRegEx = New RegExp
With xRegEx
.MultiLine = False
.Global = True
.IgnoreCase = True
.Pattern = "[^0-9]"
End With
If xRegEx.Test(xSplit) = True Then
MsgBox "Please enter a valid page number:", vbInformation, "Kutools for Word"
Exit Sub
End If
If VBA.Int(xSplit) >= xPageCount Then
MsgBox "The entered number exceeds the total page count of the document." & vbCrLf & "Please enter a valid number.", vbInformation, "Kutools for Word"
GoTo L1
End If
xDocName = xDoc. Name
xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
xFilePath = xFilePath & xDocName
For xCount = 0 To Int(xPageCount / xSplit)
xPageCount = .ActiveWindow.Panes(1).Pages.Count
If xPageCount > xSplit Then
xLast = xSplit
Else
xLast = xPageCount
End If
Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
xRngSplit.Start = .Range.Start
xRngSplit.Cut
Documents.Add
Selection.Paste
ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
ActiveWindow.Close
Next xCount
Set xRngSplit = Nothing
xNewDoc.Close wdDoNotSaveChanges
Set xNewDoc = Nothing
End With
Application.ScreenUpdating = True
End Sub
Teilen Sie ein Word-Dokument mit einer erstaunlichen Funktion in separate Dateien auf, jeweils alle N Seiten
Kutools für Word bietet eine leistungsstarke Teilen-Funktion, die es Ihnen ermöglicht, schnell ein großes Word-Dokument in mehrere separate Dateien basierend auf Überschrift 1, Seitenumbrüchen, Abschnittsumbrüchen oder Seiten aufzuteilen. Diese Funktion vereinfacht einen ansonsten mühsamen manuellen Prozess.
- Klicken Sie auf Kutools Plus > Teilen.
- Konfigurieren Sie im erscheinenden Dialogfeld die folgenden Optionen nach Bedarf:
- Wählen Sie die Option Alle n Seiten aus dem Menü Teilen nach aus.
- Geben Sie den n Wert im Eingabefeld an.
- Wählen Sie einen Speicherort aus.
- Geben Sie ein Präfix für die geteilten Dokumente an.
- Klicken Sie nach dem Abschluss der Einstellungen auf OK. Das Dokument wird basierend auf der ausgewählten Option (z. B. alle 7 Seiten) in mehrere Dateien aufgeteilt.
Die Verwendung der Teilen-Funktion in Kutools für Word macht das Aufteilen großer Dokumente in kleinere, handhabbare Dateien sowohl einfach als auch effizient.
Beste Büroproduktivitätswerkzeuge
Kutools für Word - Verbessern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!
🤖 Kutools AI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...
📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise in PDF konvertieren...
✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Zeilen und Spalten der Tabelle transponieren / Tabelle in Text umwandeln...
🧹 Müheloses Reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfelder / Hyperlinks / Für weitere Entfernungstools gehen Sie zur Entfernen-Gruppe...
➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie mehr in der Einfügen-Gruppe...
🔍 Präzise Auswahlen: Bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit mehr Auswahlfunktionen ...
⭐ Sterneverbesserungen: Zu jedem Standort navigieren / Automatisches Einfügen von wiederholtem Text / Wechsel zwischen Dokumentfenstern /11 Konvertierungswerkzeuge...
Beste Büroproduktivitätswerkzeuge
Kutools für Word - 100+ Werkzeuge für Word
- 🤖 Kutools AI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren / Super Übersetzen / KI-Redaktion / KI Korrekturlesen
- 📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Stapelweise in PDF konvertieren
- ✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen / Alle Bilder skalieren
- 🧹 Müheloses Reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche entfernen
- ➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen einfügen / QR-Codes erstellen