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
Outils de productivité Word recommandés
Kutools For Word - Plus de fonctionnalités avancées 100 pour Word, économisez votre% de temps 50
- Des opérations compliquées et répétées peuvent être effectuées en une seconde.
- Insérez plusieurs images sur des dossiers dans un document Word à la fois.
- Fusionner et combiner plusieurs fichiers Word sur plusieurs dossiers en un seul avec votre ordre souhaité.
- Divisez le document actuel en documents distincts en fonction de l'en-tête, du saut de section ou d'un autre critère.
- Convertir des fichiers entre Doc et Docx, Docx et PDF, une collection d'outils pour les conversions et la sélection courantes, etc.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Be the first to comment.