Comment déplacer les légendes de table d'en haut en bas ou inversement dans un document Word?

Dans un document Word, s'il existe plusieurs tables dans lesquelles des légendes sont insérées sous chaque table. Mais parfois, vous voudrez peut-être déplacer ces légendes du bas vers le haut des tableaux. Comment pouvez-vous traiter ce travail par lot aussi rapidement que possible?

Déplacez les légendes de la table de bas en haut ou vice versa dans Word avec le code VBA

Insérez plusieurs légendes de tableau, d'image ou d'équation dans un document Word à la fois: Normalement, vous devez insérer la légende du tableau, de l'image ou de l'équation du tableau, de l'image ou de l'équation une par une dans un fichier Word. Mais si vous avez Kutols pour Word's Légendes multiples vous pouvez insérer le plus rapidement possible les légendes de tableau, d’image ou d’équation de tous les tableaux, images ou équations. Kutools for Word: avec plus de 100 compléments de Word pratique, libre d'essayer sans limitation dans les jours 60. Cliquez pour télécharger et essai gratuit maintenant!

---

Déplacez les légendes de la table de bas en haut ou vice versa dans Word avec le code VBA

Pour déplacer toutes les légendes de table de bas en haut des tables, 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éplacement des 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 de table ont été déplacées de bas en haut des tableaux, voir capture d'écran:

Note: Pour déplacer les légendes de table de haut en bas de chaque table, appliquez le code VBA suivant:

Déplacement des légendes de table du haut vers le 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

---

---

Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions