Comment déplacer les légendes de tableau du haut vers le bas ou vice versa dans un document Word?

Dans un document Word, s'il existe plusieurs tableaux qui ont inséré des légendes sous chaque tableau. Mais, parfois, vous souhaiterez peut-être déplacer ces légendes du bas vers le haut des tableaux. Comment pourriez-vous gérer ce travail par lots aussi rapidement que possible?

Déplacer les légendes de tableau de bas en haut ou vice versa dans Word avec le code VBA

Déplacer les légendes de tableau de bas en haut ou vice versa dans Word avec le code VBA

Pour déplacer toutes les légendes de tableau de dessous en haut des tableaux, le code VBA suivant vous rend service, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez la macro suivante dans la fenêtre Module.

Déplacer les légendes de tableau de bas en haut dans un document Word

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. Puis appuyez F5 clé pour exécuter ce code, et toutes les légendes des tableaux ont été déplacées du bas vers le haut des tableaux, voir capture d'écran:

Notes: Pour déplacer les légendes des tableaux du haut vers le bas de chaque tableau, veuillez appliquer le code VBA suivant:

Déplacer les légendes de tableau de haut en bas dans un document Word

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

Outils de productivité Word recommandés