Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
S'inscrire  \/ 
x

or

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.

2. Cliquez 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:

doc déplacer la légende du tableau 1

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.

doc déplacer la légende du tableau 2

Kutools pour 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!


Outils de productivité Word recommandés

 

Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, économisez 50% de votre temps

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.
Say something here...
symbols left.
You are guest
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.