Note: The other languages of the website are Google-translated. Back to English

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

Du har nu möjlighet 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:

doc slå samman flera rader 1

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:

doc slå samman flera rader 2

4. Och alla valda stycken har slagits samman i ett enda stycke, se skärmdump:

doc slå samman flera rader 3


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:

doc slå samman flera rader 4


Rekommenderade Word-produktivitetsverktyg

 

Kutools för Word - Mer än 100 avancerade funktioner för Word, spara 50% tid

  • Komplicerade och upprepade operationer kan göras engångsbehandling på några sekunder.
  • Infoga flera bilder över mappar i Word-dokumentet samtidigt.
  • Slå ihop och kombinera flera Word-filer över mappar till en med önskad ordning.
  • Dela upp det aktuella dokumentet i separata dokument enligt rubrik, avsnittbrytning eller andra kriterier.
  • Konvertera filer mellan Doc och Docx, Docx och PDF, samling verktyg för vanliga konverteringar och val, och så vidare ...
Sortera kommentarer efter
Kommentarer (4)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket
Detta hjälper mig att spara tid jag gjorde detta manuellt, var 60 sidor efter 2 sidor jag blir trött och börjar leta efter en annan genväg
TACK
John
Denna kommentar minimerades av moderatoren på webbplatsen
finns det ett sätt att göra detta ord på google docs, jag gjorde stegen men det här fungerar bara för skrivbordet och onlineversioner av Microsoft Word
joseph
Denna kommentar minimerades av moderatoren på webbplatsen
Tack! Detta räddade mig timmar från att individuellt behöva komprimera 70+ sidor av flera brutna meningar till stycken. Det här är GENIUS.
lbw
Denna kommentar minimerades av moderatoren på webbplatsen
Det första steget, som jag har testat, är briljant nog. Det var det bästa tricket jag har hört talas om. Tack!
Tom och Jerry
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0  Tecken
Föreslagna platser