Ir para o conteúdo principal

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:

doc mesclar várias linhas 1

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:

doc mesclar várias linhas 2

4. E todos os parágrafos selecionados foram mesclados em um único parágrafo, veja a captura de tela:

doc mesclar várias linhas 3


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:

doc mesclar várias linhas 4

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...

👉 Quer experimentar esses recursos? Kutools para Word oferece um 60-day free trial, sem limitações! 🚀
 
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
La menor evaluada, da como resultado una conducta represiva, pasiva-agresiva y primitiva, es muy energética y tolera al medio que le rodea, es una adolescente extrovertida, es algo insegura y suele tener problemas emocionales.
Da también, el resultado de ser indiferente y esto le ocasiona miedo, es rebelde en relación madre-hija, negativa en ocasiones y tiene inmadurez psicosexual.

La menor evaluada tiene la necesidad de ser reconocida y mostrarse ante su sociedad. Para ello suele ocupar el espacio personal, no con el propósito de llamar la atención sino para que se den cuenta que existe.
Es emotiva y sensible, ama su tranquilidad, peros se reprime ante algún suceso. Siente presión ante sus figuras paternas, ante eso le suele generar estrés, agobia miento y depresión, lo que se asume como la pérdida de confianza a sí misma. Lo que resalta teniendo problemas con su identidad.
This comment was minimized by the moderator on the site
Thank you very much, you saved my time a lot! another issue is that all sentences merged together in one praragraph without any SPACE between before and after sentences! how can i put an SPACE between before/after sentences in this way? please help me if there is any solution.
This comment was minimized by the moderator on the site
Hello, SALSEN,

If you need to add a space before each merged sentence, simply enter a space in the Replace text box, and then apply the replace operation.

Please have a try, thank you!
This comment was minimized by the moderator on the site
American Motors Concord 1978-1979 2.0LTS, American Motors Gremlin 1977-1978, American Motors Spirit 1979 2.0LTS 4L
Audi 100 1970-1971, Audi 100 1972-1977 1.9LTS 4L
Audi 100 1989-1991 2.3LTS 5L
Audi 100 1992-1994 2.8LTS 6V
Audi 200 1989 2.2LTS 5L
Audi 200 1990-1991 2.2LTS TURBO 5L
Audi 4000 1980
Audi 4000 1980-1987
Audi 4000 1981-1983
Audi 4000 1984-1987
Audi 5000 1978-1988
Audi 5000 1987-1988
Audi 80 1988-1990
Audi 80 1988-1989
Audi 80 1991-1992
Audi 90 1988-1992
Audi 90 1988-1992 2.3LTS 5L
Audi 90 1993-1995 2.8LTS 6V
Audi A3 1997-2005 1.8LTS TURBO 4L
Audi A3 2008-2009 1.8LTS TURBO 4L
Audi A3 1997 2.0LTS DIESEL TURBO 5L
Audi A3 2004 2.0LTS 4L
Audi A3 2005-2006 2.0LTS MEX 4L
Audi A4 1995-1997 1.8LTS TURBO 4L
Audi A6 1995 2.8LTS 6V
Audi A6 1995 2.8LTS MOTOR:AFC 6V
Audi Cabriolet 1994-1995 2.8LTS 6V
Audi Coupe 1981-1987 2.2LTS 5L
Audi Coupe 1987-1991 2.3LTS 5L
Audi Fox 1973-1974 1.5LTS 4L
Audi Fox 1975-1979 1.6LTS 4L
Audi Quattro 1983-1986 2.2LTS 5L
Audi Rs6 2003-2004 4.2LTS 8V
Audi S3 2000-2004 1.8LTS 4L
Audi S4 1992-1994 2.2LTS TURBO 5L
Audi S6 1995 2.2LTS TURBO 5L
Audi S6 1996-1997 2.2LTS 5L
Audi Tt 2000-2006 1.8LTS TURBO 4L
Bmw 325 1986-1988 2.7LTS 6L
Bmw 325E 1984-1987 2.7LTS 6L
Bmw 325Es 1986-1987 2.7LTS 6L
Bmw 325I 1987-1992 2.5LTS 6L
Bmw 325Is 1987-1991 2.5LTS 6L
Bmw 325Ix 1988-1991 2.5LTS 6L
Bmw 525I 1989-1990 2.5LTS 6L
Bmw 528E 1982-1988 2.7LTS 6L
Lotus Elan 1968-1975 1.6LTS 4L
Pontiac Sunrunner 1995-1997 1.6LTS 4L
Porsche 924 1977-1982 2.0LTS 4L
Seat Alhambra 1996-2000 2.0LTS 4L
Seat Alhambra 2002-2003 1.8LTS MEX 4L
Seat Alhambra 2004-2007 1.8LTS TURBO 4L
Seat Alhambra 2004-2005 2.8LTS 6V
Seat Altea 2004-2015 1.6LTS 4L
Seat Cordoba 2001-2002 1.6LTS MEX 4L
Seat Cordoba 2003-2004 2.0LTS MEX 4L
Seat Cordoba 2005-2009 1.6LTS 4L
Seat Cordoba 2005-2009 2.0LTS 4L
Seat Ibiza 2001-2002 1.6LTS MEX 4L
Seat Ibiza 2003-2012 2.0LTS 4L
Seat Ibiza 2004-2012 1.6LTS 4L
Seat Ibiza 2006 1.8LTS 4L
Seat Ibiza 2007 1.8LTS TURBO 4L
Seat Ibiza 2008 1.8LTS TURBO MEX 4L
Seat Leon 2001-2004 1.8LTS MEX 4L
Seat Leon 2001-2004 1.8LTS TURBO MEX 4L
Seat Leon 2005-2006 1.8LTS 4L
Seat Leon 2006 2.0LTS 4L
Seat Toledo 2001-2003 1.8LTS MEX 4L
Seat Toledo 2001-2003 1.8LTS TURBO MEX 4L
Seat Toledo 2004-2005 1.8LTS 4L
Seat Toledo 2006 2.0LTS 4L
Toyota Hiace 1977-1979 2.0LTS 4L
Toyota Hilux 1975-1989 2.0LTS 4L
Toyota Hilux 1990-1993 1.8LTS 4L
Volkswagen Atlantic 1981-1982 1.6LTS 4L
Volkswagen Atlantic 1982-1987 1.8LTS 4L
Volkswagen Beetle 1998-2011 2.0LTS 4L
Volkswagen Beetle 1999-2005 1.8LTS TURBO 4L
Volkswagen Cabrio 1995-2002 2.0LTS 4L
Volkswagen Cabriolet 1985-1993 1.8LTS 4L
Volkswagen Caddy 1982 1.5LTS 4L
Volkswagen Caddy 1993-1994 1.8LTS 4L
Volkswagen Caribe 1982-1987 1.8LTS 4L
Volkswagen Combi 1990-2001 1.8LTS 4L
Volkswagen Combi 1997 2.8LTS 6 Cil
Volkswagen Corrado 1990-1992 1.8LTS SUPERCARGADO 4L
Volkswagen Corsar 1984-1988 1.8LTS 4L
Volkswagen Dasher 1974-1975 1.5LTS 4L
Volkswagen Dasher 1976-1980 1.6LTS 4L
Volkswagen Derby 1994-2009 1.8LTS 4L
Volkswagen Derby 2001-2004 2.0LTS MEX 4L
Volkswagen Fox 1987-1993 1.8LTS 4L
Volkswagen Golf 1985-2006 1.8LTS 4L
Volkswagen Golf 1990-2010 2.0LTS 4L
Volkswagen Jetta 1980 1.6LTS 4L
Volkswagen Jetta 1981-1984 1.7LTS 4L
Volkswagen Jetta 1984-1999 1.8LTS 4L
Volkswagen Jetta 1990-2005 2.0LTS 4L
Volkswagen Jetta 2012-2013 2.0LTS 4L
Volkswagen Jetta 2001-2005 1.8LTS TURBO 4L
Volkswagen Jetta 2009-2012 1.8LTS TURBO 4L
Volkswagen Jetta 2006-2008 2.0LTS MEX 4L
Volkswagen Jetta 2011-2014 2.0LTS MOTOR:CBPA 4L
Volkswagen Jetta Clasico 2011-2015 2.0LTS 4L
Volkswagen Passat 1990-1997 2.0LTS 4L
Volkswagen Passat 1993 1.8LTS 4L
Volkswagen Passat 2001 2.8LTS MOTOR:ATQ 6V
Volkswagen Pointer 1998-2009 1.8LTS 4L
Volkswagen Pointer Pickup 1999-2009 1.8LTS 4L
Volkswagen Polo 2003-2007 2.0LTS 4L
Volkswagen Quantum 1982-1983 1.7LTS 4L
Volkswagen Quantum 1983-1988 2.2LTS 5L
Volkswagen Quantum 1984-1985 1.8LTS 4L
Volkswagen Rabbit 1975-1980 1.5LTS 4L
Volkswagen Rabbit 1976-1980 1.6LTS 4L
Volkswagen Rabbit 1981-1984 1.7LTS 4L
Volkswagen Rabbit 1983-1984 1.8LTS 4L
Volkswagen Rabbit Convertible 1980 1.6LTS 4L
Volkswagen Rabbit Convertible 1981-1983 1.7LTS 4L
Volkswagen Rabbit Convertible 1984 1.8LTS 4L
Volkswagen Rabbit Pickup 1980 1.5LTS 4L
Volkswagen Rabbit Pickup 1980 1.6LTS 4L
Volkswagen Rabbit Pickup 1981-1983 1.7LTS 4L
Volkswagen Scirocco 1975-1978 1.5LTS 4L
Volkswagen Scirocco 1976-1980 1.6LTS 4L
Volkswagen Scirocco 1981-1983 1.7LTS 4L
Volkswagen Scirocco 1984-1989 1.8LTS 4L
Volkswagen Sedan 1978-1979 1.6LTS 4H
Volkswagen Sedan 1993-2003 1.6LTS 4L
Volkswagen Sharan 2002-2008 1.8LTS TURBO 4L
Volkswagen Super Beetle 1978-1980 1.6LTS 4H
Volkswagen Transporter 1985 1.9LTS DIESEL 4L
Volkswagen Transporter 1986-1991 2.1LTS 4H
Volkswagen Transporter 1990-1992 1.8LTS 4L
Volkswagen Transporter 1990-1993 2.0LTS 4L
Volkswagen Van 2003-2008
Volkswagen Vanagon 1983-1985
Volkswagen Vanagon 1986-1989
Volkswagen Vanagon 1990-1991
This comment was minimized by the moderator on the site
excelente, me salvaste la vida.
This comment was minimized by the moderator on the site
Thanks mate
This comment was minimized by the moderator on the site
First step, that I have tested, is brilliant enough. It was the best trick I have heard about. Thank you!
This comment was minimized by the moderator on the site
Thank you! This saved me hours from having to individually collapse 70+ pages of several broken sentences into paragraphs. This is GENIUS.
This comment was minimized by the moderator on the site
is there a way to make this word on google docs, I did the steps but this will only work for the desktop and online versions of microsoft word
This comment was minimized by the moderator on the site
Thank you very much
This helps me to save time I was doing this manually, was 60 pages after 2 pages I get tired and start looking other shortcut
THANKS
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations