Como mover a legenda de uma tabela do topo para a base ou vice-versa num documento do Word?

Num documento do Word, se existirem várias tabelas com Inserir Legenda abaixo de cada uma. Porém, por vezes, poderá pretender mover essas legendas de baixo para cima das tabelas. Como poderá tratar esta tarefa em lote da forma mais rápida possível?

Mover Legenda da Tabela de baixo para cima ou vice-versa no Word com código VBA

---

Mover Legenda da Tabela de baixo para cima ou vice-versa no Word com código VBA

Para mover todas as Legenda da Tabela de baixo para cima das tabelas, o seguinte código VBA presta-lhe um favor; proceda da seguinte forma:

1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole a seguinte macro na Janela do Módulo.

Mover Legenda da Tabela de baixo para cima num documento do 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. Em seguida, prima a tecla F5 para executar este código e todas as legendas das tabelas terão sido movidas de baixo para cima das mesmas; veja a captura de ecrã:

Nota: Para mover as Legenda da Tabela de cima para baixo de cada tabela, aplique o seguinte código VBA:

Mover Legenda da Tabela de cima para baixo num documento do 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

---

Inserir várias tabelas, imagens ou Legenda da Equação num documento do Word de uma só vez Normalmente, terá de inserir a legenda da tabela, da imagem ou da equação individualmente para cada elemento num documento do Word. No entanto, com a funcionalidade Kutools for Word's Múltiplas Legendas, pode adicionar legendas a todas as tabelas, imagens ou equações de forma rápida e eficiente. Procura uma forma mais rápida de lidar com tarefas semelhantes no Word? Experimente o Kutools para Word e simplifique o seu trabalho diário. TransferirSaber mais