Como mover as legendas da tabela de cima para baixo ou vice-versa no documento do Word?
Em um documento do Word, se houver várias tabelas que inseriram legendas abaixo de cada tabela. Mas, às vezes, você pode querer mover essas legendas de baixo para cima das tabelas. Como você poderia lidar com esse trabalho em lote o mais rápido possível?
Mova as legendas da tabela de baixo para cima ou vice-versa no Word com código VBA
Mova as legendas da tabela de baixo para cima ou vice-versa no Word com código VBA
Para mover todas as legendas de tabela de baixo para cima das tabelas, o seguinte código VBA é um favor, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole a macro a seguir na janela do módulo.
Mova as legendas da tabela de baixo para cima em um 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. Então aperte F5 chave para executar este código, e todas as legendas da tabela foram movidas de baixo para cima das tabelas, consulte a captura de tela:
Note: Para mover as legendas da tabela de cima para baixo de cada tabela, aplique o seguinte código VBA:
Mova as legendas da tabela de cima para baixo em um 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
|
Insira várias legendas de tabela, imagem ou equação no documento do Word de uma vez:
Normalmente, você deve inserir a tabela, imagem ou legenda da equação para a tabela, imagem ou equação uma a uma em arquivo Word. Mas, se você tiver Kutols para Word's Múltiplas legendas recurso, você pode inserir as legendas da tabela, imagem ou equação para todas as tabelas, imagens ou equações o mais rápido possível.
Kutools for Word: com mais de 100 suplementos úteis do Word, grátis para testar sem limitação em 60 dias. Clique para baixar e testar gratuitamente agora! |
Melhores ferramentas de produtividade de escritório
Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!
🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo / Reescrever texto / Resumir documentos / Pergunte para obter informações com base no documento, tudo dentro do Word
📘 Domínio de documentos: Páginas divididas / Mesclar Documentos / Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...) / Conversão em lote para PDF / Exportar páginas como imagens / Imprima vários arquivos de uma vez...
✏ Edição de conteúdo: Localização e substituição em lote em vários arquivos / Redimensionar todas as imagens / Transpor linhas e colunas da tabela / Converter tabela em texto...
🧹 Limpeza sem esforço: Varrer Espaços extras / Quebras de seção / Todos os cabeçalhos / Caixas de Texto / hiperlinks / Para mais ferramentas de remoção, acesse nosso Remover Grupo...
➕ Inserções criativas: Inserir Mil Separadores / Caixas de seleção / botões de rádio / QR Code / Código de barras / Tabela de linhas diagonais / Legenda da equação / Legenda da Imagem / Legenda da Tabela / Várias fotos / Descubra mais no Inserir Grupo...
🔍 Seleções de precisão: Identificar páginas específicas / tabelas / formas / parágrafos de título / Melhore a navegação com mais Selecione recursos...
⭐ Aprimoramentos de estrelas: Navegue rapidamente para qualquer local / inserir automaticamente texto repetitivo / alternar perfeitamente entre janelas de documentos / 11 ferramentas de conversão...
