Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿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 han insertado títulos debajo de cada tabla. Pero, a veces, es posible que desee mover estos títulos desde abajo hacia arriba de las tablas. ¿Cómo podrías tratar este trabajo lo más rápido posible?

Mueva los títulos de la tabla de abajo hacia arriba o viceversa en Word con código VBA

Inserte varias leyendas 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, imagen o ecuación una por una en el archivo de Word. Pero si tienes Kutols para Word's Múltiples subtítulos característica, puede insertar los títulos de tabla, imagen o ecuación para todas las tablas, imágenes o ecuaciones lo más rápido posible.

doc mover tabla de título 2

Kutools for Word: con más de 100 complementos de Word prácticos, de prueba sin límite en días 60. Haga clic para descargar y prueba gratuita ahora!


Mueva los títulos de la tabla de abajo hacia arriba o viceversa en Word con código VBA

Para mover todos los títulos de las tablas de abajo a arriba de las tablas, el siguiente código de VBA le hace un favor, haga lo siguiente:

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

Mueva los títulos de la tabla 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 clave para ejecutar este código, y todas las leyendas de las tablas se han movido desde abajo hacia arriba de las tablas, vea la captura de pantalla:

doc mover tabla de título 1

Nota: Para mover los títulos de la tabla de arriba a abajo de cada tabla, aplique el siguiente código VBA:

Mueva los títulos de la 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


Herramientas recomendadas de productividad de palabras

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

  • Las operaciones complicadas y repetidas se pueden realizar una sola vez en segundos.
  • Inserte varias imágenes a través de carpetas en el documento de Word a la vez.
  • Combine y combine varios archivos de Word en carpetas en uno con su orden deseado.
  • Divida el documento actual en documentos separados según el encabezado 1, 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, y así...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.