Accéder au contenu principal

Comment déplacer les légendes de table du haut vers le bas ou inversement dans un document Word ?

Author: Xiaoyang Last Modified: 2025-05-27

Dans un document Word, s'il y a plusieurs tableaux avec des légendes insérées sous chaque tableau. Cependant, parfois, vous pourriez vouloir déplacer ces légendes du bas vers le haut des tableaux. Comment pourriez-vous traiter cette tâche en lot aussi rapidement que possible ?

Déplacer les légendes de table du bas vers le haut ou inversement dans Word avec le code VBA


Déplacer les légendes de table du bas vers le haut ou inversement dans Word avec le code VBA

Pour déplacer toutes les légendes de table du bas vers le haut des tableaux, le code VBA suivant peut vous aider, veuillez faire comme ceci :

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

2. Cliquez sur Insérer > Module, puis collez la macro suivante dans la fenêtre Module.

Déplacer les légendes de table du bas vers le 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. Ensuite, appuyez sur la touche F5 pour exécuter ce code, et toutes les légendes de table auront été déplacées du bas vers le haut des tableaux, voir capture d'écran :

All table captions are moved from below to above

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

Déplacer les 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

Insérer plusieurs légendes de table, d'image ou d'équation dans un document Word en une seule fois

Normalement, vous devez insérer la légende de table, d'image ou d'équation pour chaque table, image ou équation une par une dans un fichier Word. Mais, si vous avez la fonctionnalité Légendes multiples de Kutools for Word, vous pouvez insérer les légendes de table, d'image ou d'équation pour toutes les tables, images ou équations aussi rapidement que possible.

Batch Insert Captions

Kutools pour Word est l'add-in ultime pour Word qui rationalise votre travail et améliore vos compétences en traitement de documents. Obtenez-le maintenant !

Meilleurs outils de productivité pour Office

Kutools pour Word - Élevez votre expérience Word avec plus de 100 fonctionnalités remarquables !

🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais (Conserver le format) / Super Traduire (Conserver le format) / Rédaction IA / Correction AI...

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter la sélection dans divers formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...

Édition de contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes du tableau / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminer les espaces supplémentaires / Sauts de section / Zones de texte / Liens hypertexte / Pour plus d'outils de suppression, rendez-vous dans le groupe Supprimer...

Insertion créative : Insérer des séparateurs de milliers / Cases à cocher / Boutons radio / Code QR / Code-barres / Images multiples / Découvrez plus dans le groupe Insérer...

🔍 Sélections précises : Identifier des pages spécifiques / Tableaux / Formes / Paragraphes de titre / Améliorez la navigation avec plus de fonctionnalités de sélection...

Améliorations étoilées : Naviguer vers n'importe quel emplacement / Insertion automatique de texte répétitif / Basculer entre les fenêtres de document /11 outils de conversion...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vous voulez essayer ces fonctionnalités ? Téléchargez Kutools pour Word maintenant ! 🚀