Wie verschiebt man die Tabellenüberschrift in einem Word-Dokument von oben nach unten oder umgekehrt?

In einem Word-Dokument sind bei mehreren Tabellen jeweils Beschriftungen eingefügt. Gelegentlich möchten Sie diese Beschriftungen jedoch von unten nach oben über die Tabellen verschieben. Wie können Sie diese Aufgabe möglichst schnell und stapelweise erledigen?

Tabellenbeschriftung mithilfe von VBA-Code in Word von unten nach oben oder umgekehrt verschieben

---

Tabellenbeschriftung mithilfe von VBA-Code in Word von unten nach oben oder umgekehrt verschieben

Um alle Tabellenbeschriftungen von unterhalb nach oberhalb der Tabellen zu verschieben, unterstützt Sie der folgende VBA-Code. 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 in das Modulfenster ein.

Tabellenbeschriftung in einem Word-Dokument von unten nach oben 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 anschließend die Taste F5, um diesen Code auszuführen. Alle Tabellenbeschriftungen wurden nun von unterhalb nach oberhalb der Tabellen verschoben (siehe Screenshot):

Hinweis: Um die Tabellenbeschriftung von oberhalb nach unterhalb jeder Tabelle zu verschieben, verwenden Sie bitte den folgenden VBA-Code:

Tabellenbeschriftung in einem Word-Dokument von oben nach unten 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, Bilder oder Gleichungsbeschriftung gleichzeitig in ein Word-Dokument einfügen Normalerweise müssen Sie Tabellen-, Bild- oder Gleichungsbeschriftungen einzeln in eine Word-Datei einfügen. Mit der Kutools for Word-Mehrere Beschriftungen-Funktion fügen Sie jedoch alle Tabellen, Bilder oder Gleichungen im Handumdrehen ein. Suchen Sie nach einer schnelleren Möglichkeit, ähnliche Aufgaben in Word zu erledigen? Probieren Sie Kutools für Word aus und vereinfachen Sie Ihre tägliche Arbeit! HerunterladenWeitere Informationen