Hur slår man samman eller kombinerar flera rader i ett enda stycke i Word-dokument?
Om det finns hundratusentals stycken i ditt Word-dokument behöver det mycket papper när du skriver ut det här dokumentet. För att spara papper kan du slå samman dessa flera rader i ett enda stycke. Hur kan du dock kombinera alla dessa rader i ett stycke snabbt och enkelt i Word-dokument?
Slå ihop eller kombinera flera rader i ett enda stycke med funktionen Sök och ersätt
Slå ihop eller kombinera flera rader i ett enda stycke med VBA-kod
Slå ihop eller kombinera flera rader i ett enda stycke med funktionen Sök och ersätt
Smakämnen Sök och ersätt funktion i Word kan hjälpa dig att slå samman flera rader i ett stycke, gör så här:
1. Välj de stycken som du vill slå samman till ett stycke.
2. Och klicka sedan på Hem > hitta > Avancerad Sök att gå på Sök och ersätt dialogrutan, i Sök och ersätt under dialogrutan hitta fliken, skriv in ^p i Hitta det textruta och välj sedan Aktuellt val alternativ från Hitta i rullgardinsmeny, se skärmdump:
3. Gå sedan till ersätta och lämna Ersätt med textrutan är tom och klicka sedan på Ersätt alla knapp, se skärmdump:
4. Och alla valda stycken har slagits samman i ett enda stycke, se skärmdump:
Slå ihop eller kombinera flera rader i ett enda stycke med VBA-kod
Här är en annan användbar metod som också kan hjälpa dig att slutföra detta jobb i Word, gör med följande steg:
1. Välj de rader som du vill slå samman i ett stycke.
2. Håll sedan ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
3. Och klicka sedan på Insert > Modulerna, kopiera och klistra in koden nedan i den öppna modulen.
VBA-kod: Slå samman flera rader i ett enda stycke:
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. Och tryck sedan på F5 nyckel för att köra den här koden, och alla valda stycken har kombinerats till ett stycke enligt följande skärmdump:
Bästa kontorsproduktivitetsverktyg
Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!
🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll / Skriv om text / Sammanfatta dokument / Fråga för information baserat på dokument, allt i Word
📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Exportera urval i olika format (PDF/TXT/DOC/HTML...) / Batchkonvertera till PDF / Exportera sidor som bilder / Skriv ut flera filer samtidigt...
✏ Innehållsredigering: Batch Hitta och ersätt över flera filer / Ändra storlek på alla bilder / Transponera tabellrader och kolumner / Konvertera tabell till text...
🧹 Enkel rengöring: Svep bort Extra utrymmen / Avsnitt bryter / Alla rubriker / Textrutor / Hyperlänkar / För fler borttagningsverktyg, gå till vår Ta bort gruppen...
➕ Kreativa inlägg: Föra in Tusen avskiljare / Kryssrutor / radio Knappar / QR-kod / Streckkod / Diagonal linjebord / Bildtext för ekvation / Bild Bildtext / Tabelltextning / Flera bilder / Upptäck mer i Infoga grupp...
🔍 Precisionsval: Precisera specifika sidor / Tabellerna / former / rubrikerna / Förbättra navigering med mer Välj funktioner...
⭐ Stjärnförbättringar: Navigera snabbt till vilken plats som helst / infoga repetitiv text automatiskt / växla sömlöst mellan dokumentfönster / 11 Konverteringsverktyg...