Hoe verplaatst u het bijschrift van een tabel in een Word-document van boven naar onder, of vice versa?

In een Word-document staan vaak meerdere tabellen, elk voorzien van een bijschrift onderaan. Soms wilt u al die bijschriften echter verplaatsen van onder naar boven bij de respectievelijke tabellen. Hoe voert u deze taak dan zo snel mogelijk in één keer uit?

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

---

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

Om alle tabelbijschriften van onder naar boven te verplaatsen, helpt de volgende VBA-code u daarbij. Volg deze stappen:

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 Tabel bijschrift 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 toets F5 om deze code uit te voeren. Alle tabelbijschriften zijn nu van onder naar boven bij de tabellen geplaatst; zie de schermafbeelding:

Opmerking: Om de Tabel bijschrift van boven naar onder van elke tabel te verplaatsen, gebruikt u de volgende VBA-code:

Verplaats Tabel bijschrift 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 tabellen, afbeeldingen of Vergelijking bijschrift tegelijkertijd in een Word-document in Normaal gesproken voegt u bijschriften voor tabellen, afbeeldingen of vergelijkingen één voor één handmatig in een Word-bestand in. Maar met de Kutools for Word's Meerdere Bijschriften-functie voegt u al die bijschriften in één keer razendsnel toe. Wilt u soortgelijke taken in Word sneller uitvoeren? Probeer Kutools voor Word en vereenvoudig uw dagelijkse werk! DownloadenMeer informatie