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.
2Cliquez sur 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
Insérez plusieurs légendes de tableau, d'image ou d'équation dans un document Word à la fois:
Normalement, vous devez insérer le tableau, l'image ou la légende de l'équation pour le tableau, l'image ou l'équation un par un dans le fichier Word. Mais, si vous avez Kutols pour Word's Légendes multiples fonction, vous pouvez insérer les légendes de tableau, d'image ou d'équation pour tous les tableaux, images ou équations aussi rapidement que possible. Kutools for Word: avec plus de 100 compléments Word pratiques, essai gratuit sans limitation dans 60 jours. Cliquez pour télécharger et essai gratuit maintenant! |
Meilleurs outils de productivité bureautique
Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !
🤖 Assistant IA Kutools: Transformez votre écriture avec l'IA - Générer du contenu / Réécrire le texte / Résumer des documents / Demander des informations basé sur le document, le tout dans Word
(I.e. Maîtrise des documents: Pages divisées / Fusionner des documents / Exporter la sélection dans différents formats (PDF/TXT/DOC/HTML...) / Conversion par lots en PDF / Exporter des pages sous forme d'images / Imprimer plusieurs fichiers à la fois
✏ Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et les colonnes du tableau / Convertir le tableau en texte
🧹 Nettoyage sans effort : balayer Espaces supplémentaires / Sauts de section / Tous les en-têtes / Boîtes de texte / Liens hypertextes / Pour plus d'outils de suppression, rendez-vous sur notre Supprimer le groupe
➕ Insertions créatives: Insérer Mille séparateurs / Cases à cocher / Boutons radio / code QR / Code barres / Tableau des lignes diagonales / Légende de l'équation / Légende / Légende de la table / Plusieurs images / Découvrez-en davantage dans le Insérer un groupe
🔍 Sélections de précision: Localiser pages spécifiques / les tables / formes / paragraphes de titre / Améliorez la navigation avec PLUS Sélectionnez les fonctionnalités
⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit / insertion automatique de texte répétitif / basculer de manière transparente entre les fenêtres de document / 11 outils de conversion