Hoe tabelbijschriften van boven naar onder of omgekeerd te verplaatsen in een Word-document?
In een Word-document, als er meerdere tabellen zijn waarbij onder elke tabel bijschriften zijn ingevoegd. Maar soms wilt u misschien deze bijschriften van onder naar boven van de tabellen verplaatsen. Hoe kunt u deze taak zo snel mogelijk in batch afhandelen?
Verplaats tabelbijschriften van onder naar boven of omgekeerd in Word met VBA-code
Verplaats tabelbijschriften van onder naar boven of omgekeerd in Word met VBA-code
Om alle tabelbijschriften van onder naar boven van de tabellen te verplaatsen, helpt de volgende VBA-code u verder, doe dit als volgt:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende macro in het Modulevenster.
Verplaats tabelbijschriften van onder naar boven in een Word-document
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. Druk vervolgens op de F5-toets om deze code uit te voeren, en alle tabelbijschriften zijn verplaatst van onder naar boven van de tabellen, zie screenshot:
Opmerking: Om de tabelbijschriften van boven naar onder van elke tabel te verplaatsen, gebruikt u de volgende VBA-code:
Verplaats tabelbijschriften van boven naar onder in een Word-document
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
Voeg meerdere tabel-, afbeeldings- of vergelijkingsbijschriften tegelijk in een Word-document inNormaal gesproken moet u één voor één de tabel-, afbeeldings- of vergelijkingsbijschriften invoegen voor de tabel, afbeelding of vergelijking in een Word-bestand. Maar als u de functie Meerdere Bijschriften van Kutools for Word heeft, kunt u de tabel-, afbeeldings- of vergelijkingsbijschriften voor alle tabellen, afbeeldingen of vergelijkingen zo snel mogelijk invoegen. Kutools voor Word is de ultieme Word-add-in die uw werk stroomlijnt en uw vaardigheden in documentverwerking verbetert. Haal het nu! |
Beste productiviteitstools voor kantoor
Kutools voor Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!
🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools (Formaat behouden) / Super Vertalen (Formaat behouden) / AI Redactie / AI Proeflezen...
📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...
✏ Inhoud bewerken: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen formaat wijzigen / Rij- en kolomindeling van tabellen transponeren / Tabel naar tekst converteren...
🧹 Moeiteloos opschonen: Verwijder extra spaties / sectie-eindes / tekstvakken / hyperlinks / Voor meer verwijderopties, ga naar de groep Verwijderen...
➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / selectievakjes / keuzerondjes / QR-code / barcode / meerdere afbeeldingen / Ontdek meer in de groep Invoegen...
🔍 Nauwkeurige selecties: Selecteer specifieke pagina’s / tabellen / vormen / kopalinea’s / Verbeter de navigatie met meer Selecteer -functies...
⭐ Ster-upgrades: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Wissel tussen documentvensters /11 conversietools...

Beste productiviteitstools voor kantoor
Kutools voor Word – 100+ tools voor Word
- 🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools / Super Vertalen / AI Redactie / AI Proeflezen
- 📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Batch converteren naar PDF
- ✏ Inhoud bewerken: Batch Zoeken en Vervangen / Alle afbeeldingen formaat wijzigen
- 🧹 Moeiteloos opschonen: Verwijder extra spaties / Verwijder sectie-eindes
- ➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / Voeg selectievakjes toe / Maak QR-codes