Teilen Sie ein Word-Dokument nach Überschrift 1 in mehrere Dateien auf (Schritt-für-Schritt-Anleitung)

Wenn Sie mit langen Word-Dokumenten arbeiten – wie Berichten, Lehrbüchern, Handbüchern oder Projektdokumenten – müssen Sie die Datei möglicherweise in kleinere Teile aufteilen, z. B. ein Kapitel pro Datei. Falls Ihr Dokument bereits Überschriften der Ebene 1 als Hauptabschnittstitel verwendet, wird das Aufteilen deutlich einfacher. Hier finden Sie eine umfassende Anleitung, wie Sie dies effizient durchführen können.

• Bereiten Sie Ihr Word-Dokument vor
• Methode 1: Trennen eines Word-Dokuments nach Überschrift 1 mithilfe der Gliederungsfunktion
• Methode 2: Trennen eines Word-Dokuments nach Überschrift 1 mithilfe von VBA-Code
• Methode 3: Trennen eines Word-Dokuments nach Überschrift 1 mit Kutools für Word
• Fazit

Bereiten Sie Ihr Word-Dokument vor

Stellen Sie vor Anwendung der Methode sicher, dass Ihr Dokument ordnungsgemäß strukturiert ist – Word erkennt Trennstellen nur, wenn Überschriften der Ebene 1 korrekt verwendet wurden.

Formatvorlagen anwenden:

Wenden Sie Überschriftenformatvorlagen konsequent an: Stellen Sie sicher, dass Überschriften der Ebene 1 die Formatvorlage „Überschrift 1“, Überschriften der Ebene 2 die Formatvorlage „Überschrift 2“ und so weiter verwenden.

Wählen Sie Ihre Überschrift aus → Wechseln Sie zur Registerkarte „Start“ → Klicken Sie in der Formatvorlagengalerie auf „Überschrift 1“.

Sichern Sie Ihre Datei:

Speichern Sie stets eine Kopie Ihres Originaldokuments, bevor Sie eine Aufteilung vornehmen – denn einige Methoden, wie beispielsweise die Gliederungsansicht, lassen sich nur schwer rückgängig machen.

Methode 1: Trennen eines Word-Dokuments nach Überschrift 1 mithilfe der Gliederungsansicht

Tatsächlich vereinfacht die integrierte Gliederungsansicht von Word diese Aufgabe enorm: Sie erkennt automatisch Abschnitte mit Überschrift 1 und ermöglicht es Ihnen, die Dokumentstruktur übersichtlich zu organisieren und jedes Kapitel mühelos als separate Datei zu exportieren – ganz ohne Add-Ins und komplizierte Schritte.

1. Öffnen Sie das Word-Dokument, wechseln Sie zur Ansicht-Registerkarte und klicken Sie auf Gliederung, siehe Screenshot:
   
2. Stellen Sie im erscheinenden Gliederung-Menüband die Dropdown-Liste Anzeigeebene auf Ebene 1 ein. Dadurch werden alle Inhalte außer Ihren Überschriften der Ebene 1 ausgeblendet.
   
3. Drücken Sie anschließend Strg + A, um den gesamten Text auszuwählen. Klicken Sie dann in der Gruppe Hauptdokument auf Dokument anzeigen.
   
4. Klicken Sie weiterhin auf die Schaltfläche Erstellen. Word umschließt nun jeden Abschnitt mit einem dünnen Rahmen.
   
5. Wechseln Sie zu Datei > Speichern unter. Wählen Sie einen neuen Ordner aus. Word erstellt automatisch separate .docx-Dateien für jede Überschrift 1 und verwendet dabei den Überschriftentext als Dateinamen. Außerdem wird ein separates Indexdokument generiert, das Hyperlinks zu allen geteilten Dateien enthält – so öffnen Sie jedes Dokument mit nur einem Klick.
   

Methode 2: Trennen eines Word-Dokuments nach Überschrift 1 mithilfe von VBA-Code

Bei sehr langen Dokumenten kann die Gliederungsmethode gelegentlich zu Formatierungsproblemen führen – die Verwendung eines VBA-Skripts ist dagegen sauberer und schneller.

1. Drücken Sie Alt + F11, um das Fenster Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen>Modul. Kopieren Sie den folgenden Code und fügen Sie ihn in das leere Modul ein:
   

   Sub SplitDocByHeading1()
       Dim StrTmplt As String
       Dim StrPath As String
       Dim StrFlNm As String
       Dim Rng As Range
       Dim i As Long
       Dim Doc As Document
       Dim fDialog As FileDialog
       Const StrNoChr As String = """*./\:?|"
       Application.ScreenUpdating = False
       Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
       With fDialog
           .Title = "Select a folder to save the split documents"
           .AllowMultiSelect = False
           If .Show <> -1 Then
               MsgBox "Operation cancelled.", vbInformation, "Split by Heading 1"
               Application.ScreenUpdating = True
               Exit Sub
           End If
           StrPath = .SelectedItems(1)
       End With
       If Right(StrPath, 1) <> "\" Then
           StrPath = StrPath & "\"
       End If
       With ActiveDocument
           StrTmplt = .AttachedTemplate.FullName
           With .Range
               With .Find
                   .ClearFormatting
                   .Replacement.ClearFormatting
                   .Text = ""
                   .Replacement.Text = ""
                   .Style = wdStyleHeading1
                   .Format = True
                   .Forward = True
                   .Wrap = wdFindStop
                   .Execute
               End With
               Do While .Find.Found
                   Set Rng = .Duplicate
                   StrFlNm = Split(Rng.Paragraphs(1).Range.Text, vbCr)(0)
                   For i = 1 To Len(StrNoChr)
                       StrFlNm = Replace(StrFlNm, Mid(StrNoChr, i, 1), "_")
                   Next i
                   StrFlNm = StrFlNm & ".docx"
                   Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\HeadingLevel")
                   Set Doc = Documents.Add(Template:=StrTmplt, Visible:=False)
                   With Doc
                       .Range.FormattedText = Rng.FormattedText
                       .SaveAs2 FileName:=StrPath & StrFlNm, _
                                FileFormat:=wdFormatXMLDocument, _
                                AddToRecentFiles:=False
                       .Close SaveChanges:=False
                   End With
                   .Collapse wdCollapseEnd
                   .Find.Execute
               Loop
           End With
       End With
       Set Doc = Nothing
       Set Rng = Nothing
       Application.ScreenUpdating = True
       MsgBox "Split completed successfully.", vbInformation, "Split by Heading 1"
   End Sub
   

3. Drücken Sie F5 oder klicken Sie auf Ausführen, um den Code auszuführen. Es erscheint ein Fenster, das Sie auffordert, einen Ordner zum Speichern der geteilten Dateien auszuwählen. Siehe Screenshot:
   
4. Klicken Sie auf OK, und Word erstellt sofort eine .docx-Datei für jeden Abschnitt mit Überschrift 1. Öffnen Sie den Ordner, um die Ausgabedateien anzuzeigen.
   

Methode 3: Trennen eines Word-Dokuments nach Überschrift 1 mithilfe von Kutools für Word

Obwohl die integrierten Tools von Word und VBA Dokumente aufteilen können, erfordern sie mehrere Schritte, technisches Know-how und riskieren sogar Formatierungsverluste. Kutools für Word bietet eine sauberere und deutlich effizientere Lösung: Mit der Funktion „Dokument teilen“ zerlegen Sie per Klick eine Datei nach Überschrift 1, Seitenumbruch, Abschnittsumbruch, Seite oder anderen Kriterien – ganz ohne Programmierkenntnisse, ohne manuellen Aufwand und ohne Verlust Ihrer Formatierungen. Kutools bewahrt dabei zuverlässig Formatvorlagen, Layout, Bilder sowie Kopf- und Fußzeilen und ist somit das perfekte Werkzeug für alle, die mit umfangreichen Dokumenten arbeiten.

Nachdem Sie Kutools für Word heruntergeladen und installiert haben, führen Sie bitte die folgenden Schritte aus:

1. Wechseln Sie zu KUTOOLS PLUS > Teilen.
   
2. Geben Sie im Dialogfeld Dokument teilendie folgenden Optionen an:

   2,1 Wählen Sie Überschrift 1 aus dem Trennen nach-Dropdown-Menü aus. (Sie können auch andere Trennregeln wählen, z. B. Seitenumbruch, Abschnittsumbruch, Seite, Alle n Seiten und mehr.)

   2,2 Geben Sie einen Ordner an, in dem die neuen geteilten Dateien gespeichert werden sollen.

   2,3 Klicken Sie auf die Schaltfläche OK.

   Tipp: Sie können jedem Titel der geteilten Dateien auch ein Präfix hinzufügen, indem Sie Text in das Feld Dokumentpräfix eingeben.

   
   

Ergebnis:
Kutools erstellt sofort mehrere Word-Dateien basierend auf Ihrer Überschriftenstruktur 1 und behält dabei alle Kopf- und Fußzeilen vollständig bei.

Fazit

Verwandte Artikel: