Comment déplacer les légendes de table du haut vers le bas ou inversement dans un document Word ?
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 :
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 foisNormalement, 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. 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...

Meilleurs outils de productivité pour Office
Kutools pour Word - 100+ outils pour Word
- 🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais / Super Traduire / Rédaction IA / Correction AI
- 📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Conversion en lot vers PDF
- ✏ Édition de contenu : Recherche et remplacement en lot / Redimensionner toutes les images
- 🧹 Nettoyage sans effort : Supprimer les espaces supplémentaires / Supprimer les sauts de section
- ➕ Insertion créative : Insérer des séparateurs de milliers / Insérer des cases à cocher / Créer des codes QR