Zum Hauptinhalt springen

Entdecken Sie noch heute die neue, kostenlose Version von Kutools für Outlook!

Wie verschiebt man Tabellenbeschriftungen in einem Word-Dokument von oben nach unten oder umgekehrt?

Author: Xiaoyang Last Modified: 2025-05-28

In einem Word-Dokument gibt es möglicherweise mehrere Tabellen, unter denen jeweils Beschriftungen eingefügt wurden. Manchmal möchten Sie diese Beschriftungen jedoch von unten nach oben verschieben. Wie können Sie diese Aufgabe so schnell wie möglich im Batch-Verfahren erledigen?

Verschieben von Tabellenbeschriftungen von unten nach oben oder umgekehrt in Word mit VBA-Code

Verschieben von Tabellenbeschriftungen von unten nach oben oder umgekehrt in Word mit VBA-Code

Um alle Tabellenbeschriftungen von unten nach oben zu verschieben, hilft Ihnen der folgende VBA-Code weiter. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie das folgende Makro im Modulfenster ein.

Tabellenbeschriftungen von unten nach oben in einem Word-Dokument verschieben

Sub ReLabelDownToUpTables()
    Dim I As Long
    Dim xRngPre As Range
    Dim xRngNext As Range
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = .Tables.Count To 1 Step -1
            With .Tables(I).Range
                Set xRngPre = .Characters.First.Previous.Characters.Last
                xRngPre.Select
                Set xRngNext = .Characters.Last.Next.Paragraphs.First.Range
                xRngNext.Select
                With xRngPre
                    .InsertBefore vbCr
                    .Style = xRngNext.Style
                    .Start = .End - 1
                    .End = .Start
                End With
                If Len(xRngNext.Text) > 1 Then
                    xRngNext.End = xRngNext.End - 1
                    xRngNext.Cut
                    xRngNext.Delete
                    xRngPre.Paste
                Else
                    xRngNext.Delete
                End If
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

3. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und alle Tabellenbeschriftungen wurden von unten nach oben verschoben, siehe Screenshot:

All table captions are moved from below to above

Hinweis: Um die Tabellenbeschriftungen von oben nach unten zu verschieben, wenden Sie bitte den folgenden VBA-Code an:

Tabellenbeschriftungen von oben nach unten in einem Word-Dokument verschieben

Sub ReLabelUpToDownTables()
    Dim I As Long
    Dim xRngPre As Range
    Dim xRngNext As Range
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = .Tables.Count To 1 Step -1
            With .Tables(I).Range
                Set xRngNext = .Characters.First.Previous.Paragraphs.First.Range
                xRngNext.Select
                Set xRngPre = .Characters.Last.Next
                xRngPre.End = xRngPre.End - 1
                xRngPre.Select
                With xRngPre
                    .InsertBefore vbCr
                    .Style = xRngNext.Style
                    .Start = .End - 1
                    .End = .Start
                End With
                If Len(xRngNext.Text) > 1 Then
                    xRngNext.End = xRngNext.End - 1
                    xRngNext.Cut
                    xRngNext.Delete
                    xRngPre.Paste
                Else
                    xRngNext.Delete
                End If
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

Mehrere Tabellen-, Bild- oder Gleichungsbeschriftungen auf einmal in ein Word-Dokument einfügen

Normalerweise sollten Sie die Tabellen-, Bild- oder Gleichungsbeschriftungen für jede Tabelle, jedes Bild oder jede Gleichung einzeln in einer Word-Datei einfügen. Wenn Sie jedoch die Funktion Mehrere Beschriftungen von Kutools for Word verwenden, können Sie die Tabellen-, Bild- oder Gleichungsbeschriftungen für alle Tabellen, Bilder oder Gleichungen so schnell wie möglich einfügen.

Batch Insert Captions

Kutools für Word ist das ultimative Word-Add-in, das Ihre Arbeit optimiert und Ihre Dokumentverarbeitungsfähigkeiten steigert. Jetzt herunterladen!

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

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word jetzt herunter! 🚀
 

Beste Büroproduktivitätswerkzeuge

Kutools für Word - 100+ Werkzeuge für Word

Kostenloser Download Jetzt kaufen Erfahren Sie mehr über Kutools