Note: The other languages of the website are Google-translated. Back to English

¿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:

título 1 de la tabla de movimiento del documento

Nota:: 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.

título 2 de la tabla de movimiento del documento

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!


Herramientas de productividad de palabras recomendadas

 

Kutools para Word: más de 100 funciones avanzadas para Word, ahorre su 50% de tiempo

  • Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
  • Inserte varias imágenes en carpetas en un documento de Word a la vez.
  • Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
  • Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
  • Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.
Comentarios (0)
Aún no hay calificaciones. ¡Sé el primero en calificar!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL