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 > Procure > Pesquisa Avançada para ir a Localizar e substituir caixa de diálogo, no Localizar e substituir caixa de diálogo, sob o Procure 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:
Ferramentas de produtividade de palavras recomendadas
Kutools para Word - Mais de 100 recursos avançados para Word, economize 50% do tempo
- Operações complicadas e repetidas podem ser executadas com processamento único em segundos.
- Insira várias imagens em pastas em um documento do Word de uma vez.
- Mescle e combine vários arquivos do Word em pastas em um na ordem desejada.
- Divida o documento atual em documentos separados de acordo com o título, quebra de seção ou outros critérios.
- Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns, e assim por diante ...
