Hoe meerdere regels samen te voegen of te combineren tot een enkele alinea in een Word-document?
Als er honderden en duizenden alinea's in uw Word-document staan, heeft het bij het afdrukken van dit document veel papier nodig. Om papieren te besparen, kunt u deze meerdere regels samenvoegen tot één enkele alinea. Hoe kunt u echter al deze regels snel en gemakkelijk in een Word-document combineren tot één alinea?
Voeg meerdere regels samen of combineer ze tot één enkele alinea met de functie Zoeken en vervangen
Voeg meerdere regels samen of combineer ze tot één enkele alinea met VBA-code
Voeg meerdere regels samen of combineer ze tot één enkele alinea met de functie Zoeken en vervangen
De Zoeken en vervangen functie in Word kan u helpen om meerdere regels samen te voegen tot één alinea, doe dit als volgt:
1. Selecteer de alinea's die u tot één alinea wilt samenvoegen.
2. En klik dan Home > VIND DE PLEK DIE PERFECT VOOR JOU IS > Geavanceerd zoeken om het te gaan Zoeken en vervangen dialoogvenster, in de Zoeken en vervangen dialoogvenster onder het VIND DE PLEK DIE PERFECT VOOR JOU IS tabblad, voer in ^p in de Zoeken naar tekstvak en selecteer vervolgens Huidige selectie optie van de Vinden in vervolgkeuzelijst, zie screenshot:
3. Ga dan naar de vervangen tabblad en laat het Vervangen door tekstvak leeg en klik vervolgens op Alles vervangen knop, zie screenshot:
4. En alle geselecteerde alinea's zijn samengevoegd tot één enkele alinea, zie screenshot:
Voeg meerdere regels samen of combineer ze tot één enkele alinea met VBA-code
Hier is nog een andere handige methode die u ook kan helpen om deze taak in Word af te ronden, voer de volgende stappen uit:
1. Selecteer de regels die u tot één alinea wilt samenvoegen.
2. Houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
3. En klik dan Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module.
VBA-code: voeg meerdere regels samen in één enkele alinea:
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. En druk vervolgens op F5 sleutel om deze code uit te voeren, en alle geselecteerde alinea's zijn gecombineerd in één alinea zoals in het volgende screenshot wordt getoond:
Beste Office-productiviteitstools
Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!
🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren / Herschrijf tekst / Documenten samenvatten / Informeer voor informatie gebaseerd op document, allemaal binnen Word
📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...) / Batchconversie naar PDF / Pagina's exporteren als afbeeldingen / Meerdere bestanden tegelijk afdrukken...
✏ Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden / Formaat van alle afbeeldingen wijzigen / Tabelrijen en -kolommen transponeren / Converteer tabel naar tekst...
🧹 Moeiteloos schoon: Veeg weg Extra ruimtes / Sectie-onderbrekingen / Alle koppen / Tekstvakken / hyperlinks / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...
➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens / Vink vakjes aan / Radio knoppen / QR Code / Barcode / Diagonale lijntabel / Vergelijking bijschrift / Bijschrift bij afbeelding / Tabel titel / Meerdere afbeeldingen / Ontdek meer in de Groep invoegen...
???? Precisieselecties: Vaststellen specifieke pagina's / tafels / vormen / kop paragrafen / Verbeter de navigatie met meer Selecteer functies...
⭐ Sterverbeteringen: Navigeer snel naar elke locatie / automatisch herhaalde tekst invoegen / naadloos schakelen tussen documentvensters / 11 Conversiehulpmiddelen...