Wie verschiebe ich Tabellenbeschriftungen im Word-Dokument von oben nach unten oder umgekehrt?
Wenn in einem Word-Dokument mehrere Tabellen vorhanden sind, in die unter jeder Tabelle Beschriftungen eingefügt wurden. Manchmal möchten Sie diese Beschriftungen jedoch von unten nach oben in den Tabellen verschieben. Wie können Sie diesen Job so schnell wie möglich erledigen?
Verschieben Sie Tabellenbeschriftungen in Word mit VBA-Code von unten nach oben oder umgekehrt
Verschieben Sie Tabellenbeschriftungen in Word mit VBA-Code von unten nach oben oder umgekehrt
Um alle Tabellenbeschriftungen von unten nach oben zu verschieben, tun Sie bitte den folgenden VBA-Code:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Modulfenster ein.
Verschieben Sie Tabellenbeschriftungen in einem Word-Dokument von unten nach oben
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. Dann drücken F5 Schlüssel zum Ausführen dieses Codes, und alle Tabellenbeschriftungen wurden von unten nach oben verschoben, siehe Screenshot:
Note: Um die Tabellenbeschriftungen jeder Tabelle von oben nach unten zu verschieben, wenden Sie bitte den folgenden VBA-Code an:
Verschieben Sie Tabellenbeschriftungen in einem Word-Dokument von oben nach unten
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
Fügen Sie mehrere Tabellen-, Bild- oder Gleichungsbeschriftungen gleichzeitig in das Word-Dokument ein:
Normalerweise sollten Sie die Tabellen-, Bild- oder Gleichungsbeschriftung für die Tabelle, das Bild oder die Gleichung einzeln in die Word-Datei einfügen. Aber wenn ja Kutols für Wort's Mehrere Bildunterschriften Mit dieser Funktion können Sie die Tabellen-, Bild- oder Gleichungsbeschriftungen für alle Tabellen, Bilder oder Gleichungen so schnell wie möglich einfügen. Kutools for Word: Mit mehr als 100 praktischen Word-Add-Ins können Sie diese in 60 Tagen ohne Einschränkung testen. Klicken Sie hier, um es herunterzuladen und kostenlos zu testen! |
Beste Office-Produktivitätstools
Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!
🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren / Text umschreiben / Dokumente zusammenfassen / Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word
📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelkonvertierung in PDF / Seiten als Bilder exportieren / Drucken Sie mehrere Dateien gleichzeitig...
✏ Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg / Größe aller Bilder ändern / Vertauschen Sie Tabellenzeilen und -spalten / Tabelle in Text konvertieren...
🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume / Abschnittswechsel / Alle Header / Textfelder / Hyperlinks / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...
➕ Kreative Einsätze: Einfügen Tausend Trennzeichen / Kontrollkästchen / Radio Knöpfe / QR Code / Strichcode / Diagonale Linientabelle / Gleichungsbeschriftung / Bildunterschrift / Tabellenüberschrift / Mehrere Bilder / Entdecken Sie mehr im Gruppe einfügen...
🔍 Präzise Auswahl: Punktgenau bestimmte Seiten / Tabellen / Formen / Überschriften von Absätzen / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...
⭐ Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort / Sich wiederholenden Text automatisch einfügen / Wechseln Sie nahtlos zwischen Dokumentfenstern / 11 Konvertierungstools...