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

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. 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!