¿Cómo mover el título de una tabla de arriba a abajo o viceversa en un documento de Word?

En un documento de Word, si hay varias tablas que tienen Insertar Título debajo de cada una, puede que en ocasiones desee mover estos pies de tabla de la parte inferior a la superior de las tablas. ¿Cómo podría realizar esta tarea masivamente lo más rápido posible?

Mueva Título de Tabla de abajo a arriba o viceversa en Word con código VBA

---

Mueva Título de Tabla de abajo a arriba o viceversa en Word con código VBA

Para mover todos los Título de Tabla de debajo a encima de las tablas, el siguiente código VBA le hará un favor; proceda de la siguiente manera:

1. Mantenga pulsadas 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.

Mueva Título de Tabla de abajo a 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. A continuación, pulse la tecla F5 para ejecutar este código y todos los títulos de tabla se habrán movido de debajo a encima de las tablas; consulte la captura de pantalla:

Nota: Para mover los Título de Tabla de arriba a abajo de cada tabla, aplique el siguiente código VBA:

Mueva Título de Tabla 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 varias tablas, imágenes o Título de Ecuación en un documento de Word a la vez Normalmente, debe insertar la leyenda de tabla, la leyenda de imagen o el Título de ecuación para cada elemento, uno por uno, en un documento de Word. Pero si dispone de la función Kutools para Word's Múltiples Leyendas, podrá insertar las leyendas de todas las tablas, imágenes y títulos de ecuación ¡en un abrir y cerrar de ojos! ¿Busca una forma más rápida de gestionar tareas similares en Word? Pruebe Kutools para Word y simplifique su trabajo diario. DescargarMás información