¿Cómo mover las leyendas de las tablas de arriba hacia abajo o viceversa en un documento de Word?
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:
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 vezNormalmente, 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. 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...

Las mejores herramientas de productividad para Office
Kutools para Word - ¡Más de 100 herramientas para Word!
- 🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir / Super Traducir / Redacción AI / Revisión con IA
- 📘 Dominio de Documentos: Dividir páginas / Combinar documentos / Convertir en lote a PDF
- ✏ Edición de Contenido: Buscar y reemplazar en lote / Redimensionar todas las imágenes
- 🧹 Limpieza sin esfuerzo: Eliminar Espacios Extras / Eliminar Saltos de sección
- ➕ Inserciones creativas: Insertar separadores de miles / Insertar Casillas de Verificación / Crear Códigos QR