Comment déplacer la légende d’un tableau de la partie supérieure vers la partie inférieure, ou inversement, dans un document Word ?

Dans un document Word, lorsque plusieurs tableaux sont accompagnés d’une légende située sous chacun d’eux, vous pouvez souhaiter les déplacer toutes au-dessus des tableaux. Comment effectuer cette opération en lot le plus rapidement possible ?

Déplacer les Légende de table du dessous vers le dessus ou inversement dans Word à l’aide d’un code VBA

---

Déplacer les Légende de table du dessous vers le dessus ou inversement dans Word à l’aide d’un code VBA

Pour déplacer toutes les légendes de tableau situées sous les tableaux vers leur partie supérieure, le code VBA suivant vous sera d’une grande utilité. Procédez comme suit :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis collez la macro suivante dans la fenêtre du module.

Déplacer les Légende de table du dessous vers le dessus 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. Ensuite, appuyez sur la touche F5 pour exécuter ce code. Toutes les légendes de tableau auront été déplacées du dessous vers le haut des tableaux (voir capture d’écran) :

Remarque: pour déplacer les Légende de table du dessus vers le dessous de chaque tableau, veuillez appliquer le code VBA suivant :

Déplacer les Légende de table du dessus vers le dessous 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

---

Insérer plusieurs tableaux, images ou Légende d'équation dans un document Word en une seule fois Normalement, vous devez insérer manuellement les légendes de tableaux, d’images ou d’équations, une par une, dans un document Word. Mais grâce à la fonctionnalité Kutools for Word — plus précisément son outil Légendes multiples — vous pouvez ajouter en un clin d’œil des légendes pour tous vos tableaux, images et équations ! Vous cherchez un moyen plus rapide de gérer des tâches similaires dans Word ? Découvrez Kutools pour Word et simplifiez votre quotidien ! TéléchargerEn savoir plus