Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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.

doc déplacer la légende de la table 2

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:

doc déplacer la légende de la table 1

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.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.