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

Při práci s textem v aplikaci Microsoft Word můžete narazit na situace, kdy potřebujete sloučit nebo zkombinovat více řádků nebo odstavců do jednoho odstavce. To může být užitečné pro zlepšení čitelnosti, konzistence formátování nebo dokonce úsporu papíru při tisku velkých dokumentů.

V tomto tutoriálu vám ukážeme různé metody, jak efektivně sloučit více řádků do jednoho odstavce v dokumentu aplikace Word, což vám pomůže zefektivnit váš text pro lepší prezentaci a praktičnost.

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

Auto Najít a nahradit function in Word can help you to easily combine broken sentences into a continuous paragraph in Word. Here's how:

1. Select the paragraphs you want to merge into a single paragraph.
2. klikněte Domů > Najít > Rozšířené hledání k otevření Najít a nahradit dialogové okno.
3. v Najít a nahradit v dialogovém okně pod Najít karta, zadejte ^p do Najít to, co text box, and then select the Aktuální výběr možnost z nabídky Nalézt v rozbalovací seznam.

   

4. Přepněte na Nahradit kartu a ponechte Nahradit box empty, and click Nahradit vše.

   

The selected paragraphs will be combined into one single paragraph. See screenshot:

Karta Office: Přináší rozhraní s kartami do aplikací Word, Excel, PowerPoint...

Vylepšete svůj pracovní postup hned teď.      Další informace o kartě Office       Stažení zdarma

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:

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

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

🤖 Funkce AI Kutools: Generovat obsah / Přepsat text / Dokument Q&A / Získejte rychlé odpovědi / Překládat dokumenty / Polský dokument (zachovat formát)...

📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / Dávkový převod do PDF...

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

🧹 Čištění bez námahy: Smést pryč Extra prostory / Sekce přestávky / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete na Odstranit skupina...

➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Více obrázků / Objevte více v Vložit skupina...

???? Přesné výběry: Přesně Konkrétní stránky / Tabulky / Tvary / Nadpis odstavce / Vylepšete navigaci pomocí vice vybrat funkce...

⭐ Vylepšení hvězd: Přejděte na libovolné místo / Automatické vkládání opakujícího se textu / Přepínání mezi okny dokumentu / 11 Konverze Tools...

???? Chcete si tyto funkce vyzkoušet? Stáhněte si Kutools pro Word nyní! ????

Stažení zdarma     Kup nyní     Další informace o Kutools pro Word

 

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

Kutools pro Word - 100+ nástrojů pro Word

• 🤖 Funkce AI Kutools: Generovat, Přepsat, Shrnout, přeložit Dokumenty / Získejte rychlé odpovědi / Polský dokument (zachovat formát)
• 📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Dávkový převod do PDF
• ✏ Úprava obsahu: Dávkové hledání a nahrazení / Změnit velikost všech obrázků
• 🧹 Čištění bez námahy: Odstraňte další mezery / Odstraňte konce sekcí
• ➕ Kreativní vložky: Vložte tisíce oddělovačů / Vložit zaškrtávací políčka / Vytvářejte QR kódy

Stažení zdarma Kup nyní Zjistěte více o Kutools