¿Cómo mover los títulos de las tablas de arriba a abajo o viceversa en un documento de Word?
En un documento de Word, si hay varias tablas que tienen títulos insertados debajo de cada tabla. Pero, a veces, es posible que desee mover estos títulos de abajo hacia arriba de las tablas. ¿Cómo podría manejar este trabajo por lotes tan rápido como pueda?
Mueva los títulos de las tablas de abajo hacia arriba o viceversa en Word con código VBA
Mueva los títulos de las tablas de abajo hacia arriba o viceversa en Word con código VBA
Para mover todos los títulos de las tablas de abajo hacia arriba de las tablas, el siguiente código VBA le hace un favor, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue la siguiente macro en la ventana del módulo.
Mover los títulos de las 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. Entonces presione F5 para ejecutar este código, y todos los títulos de las tablas se han movido de abajo hacia arriba de las tablas, vea la captura de pantalla:
Note: Para mover los títulos de la tabla de arriba a abajo de cada tabla, aplique el siguiente código VBA:
Mover los títulos de las tablas de arriba a 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
|
Inserte varios títulos de tablas, imágenes o ecuaciones en un documento de Word a la vez:
Normalmente, debe insertar la tabla, la imagen o el título de la ecuación para la tabla, la imagen o la ecuación una por una en el archivo de Word. Pero, si tienes Kutols para Word's Varios subtítulos función, puede insertar los títulos de la tabla, imagen o ecuación para todas las tablas, imágenes o ecuaciones lo más rápido posible.
Kutools for Word: con más de 100 prácticos complementos de Word, prueba gratuita y sin límite en 60 días. Haga clic para descargar y prueba gratuita ahora! |
Las mejores herramientas de productividad de oficina
Kutools for Word - Mejore su experiencia con Word con Over 100 ¡Características notables!
🤖 Asistente de IA de Kutools: Transforma tu escritura con IA - Generar contenido / Reescribir texto / Resumir documentos / Solicite información basado en el documento, todo dentro de Word
📘 Dominio del documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir por lotes a PDF / Exportar páginas como imágenes / Imprima varios archivos a la vez...
✏ Edición de contenidos: Buscar y reemplazar por lotes en varios archivos / Cambiar el tamaño de todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla en texto...
🧹 Limpieza sin esfuerzo: barrer Espacios extra / Saltos de sección / Todos los encabezados / Cuadros de texto / Los hipervínculos / Para obtener más herramientas de extracción, diríjase a nuestro Quitar grupo...
➕ Inserciones creativas: Insertar Mil Separadores / Casillas de verificación / Botones de radio / Código QR / Barcode / Tabla de líneas diagonales / Título de la ecuación / Captura de imagen / Pie de tabla / Varias imágenes / Descubre más en el Insertar grupo...
🔍 Selecciones de precisión: Localizar páginas específicas / tablas / formas / párrafos de encabezado / Mejorar la navegación con más, Seleccionar características...
⭐ Mejoras de estrellas: Navegue rápidamente a cualquier ubicación / insertar automáticamente texto repetitivo / alternar sin problemas entre ventanas de documentos / 11 herramientas de conversión...
