Přejít k hlavnímu obsahu

Jak sloučit nebo kombinovat více řádků do jednoho odstavce v dokumentu Word?

Pokud jsou ve vašem dokumentu Word stovky a tisíce odstavců, bude při tisku tohoto dokumentu zapotřebí hodně papíru. Chcete-li uložit papíry, můžete tyto více řádků sloučit do jednoho odstavce. Jak byste však mohli rychle a snadno spojit všechny tyto řádky do jednoho odstavce v dokumentu Word?

Sloučit nebo zkombinovat více řádků do jednoho odstavce pomocí funkce Najít a nahradit

Sloučte nebo zkombinujte více řádků do jednoho odstavce s kódem VBA


Sloučit nebo zkombinovat více řádků do jednoho odstavce pomocí funkce Najít a nahradit

Projekt Najít a nahradit funkce v aplikaci Word vám může pomoci sloučit více řádků do jednoho odstavce, postupujte takto:

1. Vyberte odstavce, které chcete sloučit do jednoho odstavce.

2. A pak klikněte Domů > Najít > Rozšířené hledání jít Najít a nahradit v dialogovém okně v Najít a nahradit v dialogovém okně pod Najít karta, zadejte ^p do Najít to, co textové pole a poté vyberte Aktuální výběr možnost z nabídky Nalézt v rozevírací seznam, viz screenshot:

doc sloučit více řádků 1

3. Pak přejděte na Nahradit kartu a ponechte Nahradit textové pole prázdné a potom klikněte Nahradit vše tlačítko, viz screenshot:

doc sloučit více řádků 2

4. A všechny vybrané odstavce byly sloučeny do jednoho odstavce, viz screenshot:

doc sloučit více řádků 3


Sloučte nebo zkombinujte více řádků do jednoho odstavce s kódem VBA

Zde je další užitečná metoda, která vám také pomůže dokončit tuto úlohu ve Wordu, proveďte následující kroky:

1. Vyberte řádky, které chcete sloučit do jednoho odstavce.

2. Poté podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3. A pak klikněte Vložit > Modul, zkopírujte a vložte pod kód do otevřeného prázdného modulu.

Kód VBA: Sloučení více řádků do jednoho odstavce:

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. A pak stiskněte F5 klíč ke spuštění tohoto kódu a všechny vybrané odstavce byly sloučeny do jednoho odstavce, jak ukazuje následující snímek obrazovky:

doc sloučit více řádků 4

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

Ponořte se do zvýrazněných funkcí níže nebo klikněte sem a prozkoumejte plnou sílu Kutools pro Word.

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/XLSX)  /  Dávkový převod do PDF  /  Exportujte stránky jako obrázky  /  Tisk více souborů najednou ...

Úprava obsahu: Dávkové hledání a nahrazení přes více souborů   /  Změnit velikost všech obrázků   /  Transponujte řádky a sloupce tabulky  /  Převést tabulku na text ...

🧹 Čištění bez námahySmést pryč Extra prostory  /  Sekce přestávky  /   Všechny záhlaví  /  Textová pole  /  Odkazy  /  Další nástroje pro odstraňování najdete v naší skupině pro odstranění

Kreativní vložky: Vložit Tisíc separátorů  /  Zaškrtávací políčka  /  Tlačítka rádia  /  QR kód  /  čárový kód  /  Tabulka diagonálních čar  /  Titulek rovnice  /  Titulek obrázku  /  Titulek tabulky  /  Více obrázků  /  Objevte více v naší skupině Insert

???? Přesné výběry: Označte konkrétní stránky  /  Tabulky  /  Tvary  /  nadpisové odstavce  /  Procházejte se snadno pomocí naší Select Group

Vylepšení hvězd: Navigujte rychle na libovolné místo  /  automatické vkládání opakujícího se textu  /  plynule přepínat mezi okny dokumentů  /  11 Konverzní nástroje ...

Transformujte své úkoly ve Wordu pomocí Kutools. 👉 Stáhněte si nyní 30denní zkušební verzi 🚀.

Více       Stažení zdarma      Nákup
 
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