Note: The other languages of the website are Google-translated. Back to English

Hoe tabelbijschriften van boven naar beneden of vice versa in een Word-document te verplaatsen?

In een Word-document, als er meerdere tabellen zijn met bijschriften onder elke tabel. Maar soms wilt u deze bijschriften van onder naar boven de tabellen verplaatsen. Hoe kunt u deze klus zo snel mogelijk in een batch afhandelen?

Verplaats tabelbijschriften van onder naar boven of vice versa in Word met VBA-code


Verplaats tabelbijschriften van onder naar boven of vice versa in Word met VBA-code

Om alle bijschriften van de tabel van onder naar boven te verplaatsen, doet u de volgende VBA-code een plezier, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen 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 F5 sleutel om deze code uit te voeren, en alle tabelbijschriften zijn verplaatst van onder naar boven van de tabellen, zie screenshot:

doc verplaatsen tabelbijschrift 1

Opmerking:: Pas de volgende VBA-code toe om de bijschriften van de tabel van boven naar beneden van elke tabel te verplaatsen:

Verplaats tabelbijschriften van boven naar beneden 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 bijschriften voor tabellen, afbeeldingen of vergelijkingen tegelijk in het Word-document in:

Normaal gesproken moet u de tabel, afbeelding of bijschrift voor de tabel, afbeelding of vergelijking een voor een in het Word-bestand invoegen. Maar als je dat hebt gedaan Kutols voor Word's Meerdere bijschriften functie kunt u de bijschriften voor tabellen, afbeeldingen of vergelijkingen zo snel mogelijk invoegen voor alle tabellen, afbeeldingen of vergelijkingen.

doc verplaatsen tabelbijschrift 2

Kutools for Word: met meer dan 100 handige Word-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen. Klik om te downloaden en probeer nu gratis!


Aanbevolen Word-productiviteitstools

 

Kutools voor Word - meer dan 100 geavanceerde functies voor Word, bespaar 50% tijd

  • Ingewikkelde en herhaalde bewerkingen kunnen een eenmalige verwerking in seconden worden uitgevoerd.
  • Voeg meerdere afbeeldingen in verschillende mappen tegelijk in een Word-document in.
  • Voeg meerdere Word-bestanden in mappen samen en combineer ze tot één met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten op basis van koptekst, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
Comments (0)
Nog geen beoordelingen. Beoordeel als eerste!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties