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.
Die besten Produktivitätstools für das Büro
Kutools for Word – Erweitern Sie Ihr Word-Erlebnis mit mehr als 100 bemerkenswerten Funktionen!
🤖 Kutools AI Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen ...
📘 Dokument beherrschen: Seiten aufteilen / Dokumente zusammenführen / Bereich in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML ...) / Stapelweise Konvertierung zu PDF ...
✏ Text bearbeiten: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren (Zeilen und Spalten) / Tabelle in Text umwandeln ...
🧹 Mühelos reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfeld / Verknüpfungen / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen ...
➕ Kreative Einfügen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfeld / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen in der Gruppe Einfügen ...
🔍 Präzise Auswahl: Einzelne Seiten, Referenztabellen, Form, Überschriftenabsatz gezielt festlegen / Navigation mit weiteren Auswählen -Features verbessern ...
⭐ Besondere Erweiterungen: Zu jedem Bereich navigieren / Automatisches Einfügen von wiederkehrendem Text / Zwischen Dokument-Fenster umschalten /11 Konvertierungs-Werkzeuge ...
🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!
✨ Kutools for Office – Eine Installation, fünf leistungsstarke Tools!
Enthält Office Tab Pro · Kutools für Excel · Kutools für Outlook · Kutools for Word · Kutools for PowerPoint
📦 Alle5 Tools in einer Suite erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Sofort Zeit sparen und Produktivität steigern
Die besten Produktivitätstools für das Büro
Kutools for Word – 100+ Tools für Word
- 🤖 Kutools AI Features: KI-Assistent / Echtzeit-Assistent / Super Polieren / Super Übersetzen / KI-Redaktion / KI Korrekturlesen
- 📘 Dokument beherrschen: Seiten aufteilen / Dokumente zusammenführen / Stapelweise Konvertierung zu PDF
- ✏ Text bearbeiten: Stapelweise Suchen und Ersetzen / Alle Bilder skalieren
- 🧹 Mühelos reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche entfernen
- ➕ Kreative Einfügen: Tausendertrennzeichen einfügen / Kontrollkästchen einfügen / QR-Code erstellen
- 🌍 Unterstützt über40 Sprachen: Kutools spricht Ihre Sprache – unterstützt über40 Sprachen!