Como mesclar ou combinar várias linhas em um único parágrafo no documento do Word?
Se houver centenas e milhares de parágrafos em seu documento do Word, ao imprimir este documento, ele precisará de muito papel. Para economizar papéis, você pode mesclar essas várias linhas em um único parágrafo. No entanto, como você poderia combinar todas essas linhas em um parágrafo de forma rápida e fácil em um documento do Word?
Mesclar ou combinar várias linhas em um único parágrafo com a função Localizar e Substituir
Mesclar ou combinar várias linhas em um único parágrafo com o código VBA
Mesclar ou combinar várias linhas em um único parágrafo com a função Localizar e Substituir
A Localizar e substituir função no Word pode ajudá-lo a mesclar várias linhas em um parágrafo, faça o seguinte:
1. Selecione os parágrafos que deseja mesclar em um parágrafo.
2. E então, clique Início > Encontre > Pesquisa Avançada para ir a Localizar e substituir caixa de diálogo, no Localizar e substituir caixa de diálogo, sob o Encontre guia, por favor entre ^p no Encontre o que caixa de texto e selecione Seleção atual opção do Encontre em lista suspensa, veja a captura de tela:
3. Em seguida, vá para o Substituir guia e deixe o substituir por caixa de texto vazia e clique em substituir tudo botão, veja a captura de tela:
4. E todos os parágrafos selecionados foram mesclados em um único parágrafo, veja a captura de tela:
Mesclar ou combinar várias linhas em um único parágrafo com o código VBA
Aqui está outro método útil que também pode ajudá-lo a terminar este trabalho no Word, execute as seguintes etapas:
1. Selecione as linhas que deseja mesclar em um parágrafo.
2. Então, mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
3. E então, clique inserção > Módulo, copie e cole o código abaixo no módulo em branco aberto.
Código VBA: mesclar várias linhas em um único parágrafo:
Sub CleanUpPastedText()
Dim xSelection As Selection
On Error Resume Next
Application.ScreenUpdating = False
Set xSelection = Application.Selection
If xSelection.Type <> wdSelectionIP Then
FindAndReplace xSelection
Else
If MsgBox("Do you want to merge all selected lines into one paragraph?", vbYesNo + vbInformation, "Kutools for Word") = vbNo Then Exit Sub
xSelection.WholeStory
Set xSelection = Application.Selection
xSelection.HomeKey wdStory
FindAndReplace xSelection
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
MsgBox "The selected lines have been merged into one paragraph.", vbInformation, "Kutools for Word"
End Sub
Sub FindAndReplace(Sel As Selection)
With Sel.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Text = "[^s^t]{1,}^13"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
.Text = "([!^13])([^13])([!^13])"
.Replacement.Text = "\1\3"
.Execute Replace:=wdReplaceAll
.Text = "[ ]{2,}"
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
.Text = "([a-z])-[ ]{1,}([a-z])"
.Replacement.Text = "\1\2"
.Execute Replace:=wdReplaceAll
.Text = "[^13]{1,}"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
End With
End Sub
4. E, em seguida, pressione F5 para executar este código, e todos os parágrafos selecionados foram combinados em um parágrafo, conforme mostrado a seguir:
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...