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 Home > 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:
Doporučené nástroje produktivity slov
Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetřete 50% času
- Složité a opakované operace lze provádět jednorázově během několika sekund.
- Vložte více obrázků do složek do dokumentu Word najednou.
- Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
- Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
- Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
