Skip to main content

¿Cómo mover las leyendas de las tablas de arriba hacia abajo o viceversa en un documento de Word?

Author: Xiaoyang Last Modified: 2025-06-04

En un documento de Word, si hay varias tablas con leyendas insertadas debajo de cada tabla. Sin embargo, a veces, es posible que desee mover estas leyendas de abajo hacia arriba de las tablas. ¿Cómo podría manejar este trabajo por lotes tan rápido como sea posible?

Mover leyendas de tablas de abajo hacia arriba o viceversa en Word con código VBA


Mover leyendas de tablas de abajo hacia arriba o viceversa en Word con código VBA

Para mover todas las leyendas de las tablas de abajo hacia arriba de las tablas, el siguiente código VBA le ayudará, por favor haga lo siguiente:

1. Mantenga presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo, y pegue la siguiente macro en la Ventana del Módulo.

Mover leyendas de tablas de abajo hacia arriba en un documento de 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. Luego, presione la tecla F5 para ejecutar este código, y todas las leyendas de las tablas se habrán movido de abajo hacia arriba de las tablas, vea la captura de pantalla:

All table captions are moved from below to above

Nota: Para mover las leyendas de las tablas de arriba hacia abajo de cada tabla, aplique el siguiente código VBA:

Mover leyendas de tablas de arriba hacia abajo en un documento de 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

Insertar múltiples leyendas de tabla, imagen o ecuación en un documento de Word a la vez

Normalmente, debe insertar la leyenda de la tabla, imagen o ecuación una por una en el archivo de Word. Pero, si tiene la función Múltiples Leyendas de Kutools for Word, puede insertar las leyendas de las tablas, imágenes o ecuaciones para todas las tablas, imágenes o ecuaciones lo más rápido posible.

Batch Insert Captions

Kutools para Word es el complemento definitivo para Word que agiliza tu trabajo y potencia tus habilidades de procesamiento de documentos. ¡Consíguelo ahora!

Las mejores herramientas de productividad para Office

Kutools para Word - ¡Mejora tu experiencia en Word con más de 100 funciones excepcionales!

🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir (Mantener formato) / Super Traducir (Mantener formato) / Redacción AI / Revisión con IA...

📘 Dominio de Documentos: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...

Edición de Contenido: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla a texto...

🧹 Limpieza sin esfuerzo: Elimina espacios extras / saltos de sección / cuadros de texto / hipervínculos / Para más herramientas de eliminación, visita el grupo Eliminar...

Inserciones creativas: Insertar separadores de miles / Casillas de verificación / Botones de opción / Código QR / Código de Barras / Varias imágenes / Descubre más en el grupo Insertar...

🔍 Selecciones precisas: Selecciona páginas específicas / Tablas / Formas / Párrafos de Encabezado / Mejora la navegación con más funciones de Seleccionar...

Mejoras destacadas: Navega a cualquier ubicación / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documentos /11 herramientas de conversión...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 ¿Quieres probar estas funciones? ¡Descarga Kutools para Word ahora! 🚀
 

Las mejores herramientas de productividad para Office

Kutools para Word - ¡Más de 100 herramientas para Word!