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:
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:
4. A všechny vybrané odstavce byly sloučeny do jednoho odstavce, viz screenshot:
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!
🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah / Přepsat text / Shrnout dokumenty / Vyžádejte si informace na základě dokumentu, vše ve Wordu
📘 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 / 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ámahy: Smést pryč Extra prostory / Sekce přestávky / Všechny záhlaví / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...
➕ 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 Vložit skupinu...
???? Přesné výběry: Přesně konkrétní stránky / Tabulky / Tvary / nadpisové odstavce / Vylepšete navigaci pomocí vice Vyberte funkce...
⭐ 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...