Hogyan lehet egyesíteni vagy összevonni több sort egyetlen bekezdésbe a Word dokumentumban?
Ha több száz és ezer bekezdés van a Word dokumentumban, akkor a dokumentum nyomtatásakor sok papírra lesz szüksége. Papírmentéshez ezeket a több sort egyetlen bekezdésbe egyesítheti. Hogyan lehet ezeket a sorokat gyorsan és egyszerűen egyetlen bekezdésbe egyesíteni a Word dokumentumban?
Egyesítsen vagy egyesítsen több sort egyetlen bekezdésbe a Keresés és csere funkcióval
Egyesítsen vagy kombináljon több sort egyetlen bekezdésbe a VBA kóddal
Egyesítsen vagy egyesítsen több sort egyetlen bekezdésbe a Keresés és csere funkcióval
A Keresés és csere A Word funkció segíthet abban, hogy több sort egy bekezdésbe egyesítsen, kérjük, tegye a következőket:
1. Jelölje ki azokat a bekezdéseket, amelyeket egy bekezdésbe kíván egyesíteni.
2. Ezután kattintson Kezdőlap > Találjon > Speciális keresés hogy menjen a Keresés és csere párbeszédpanelen, a Keresés és csere párbeszédpanel alatt Találjon lapon, kérjük, adja meg ^p be a Mit keres szövegmezőbe, majd válassza a lehetőséget Aktuális választás lehetőség a Keresse meg legördülő lista, lásd a képernyőképet:
3. Majd menj a Cserélje fülre, és hagyja el a Cserélje ki szövegmező üres, majd kattintson a gombra Az összes cseréje gomb, lásd a képernyőképet:
4. És az összes kiválasztott bekezdést egyetlen bekezdésbe egyesítettük, lásd a képernyőképet:
Egyesítsen vagy kombináljon több sort egyetlen bekezdésbe a VBA kóddal
Itt van egy másik hasznos módszer, amely segíthet a munka befejezésében a Wordben, kérjük, tegye a következőket:
1. Jelölje ki azokat a sorokat, amelyeket egy bekezdésbe kíván egyesíteni.
2. Ezután tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
3. Ezután kattintson betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba.
VBA kód: Több sor egyesítése egyetlen bekezdésbe:
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és az összes kijelölt bekezdést egy bekezdésbe egyesítettük, az alábbi képernyőkép szerint:
A legjobb irodai hatékonyságnövelő eszközök
Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!
🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása / Szöveg átírása / Összefoglalja a dokumentumokat / Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül
📘 Dokumentummesterség: Felosztott oldalak / Dokumentumok egyesítése / Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...) / Kötegelt konvertálás PDF-be / Oldalak exportálása képként / Nyomtasson több fájlt egyszerre...
✏ Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között / Minden kép átméretezése / Transzponálja a táblázat sorait és oszlopait / Táblázat konvertálása szöveggé...
🧹 Könnyed tisztítás: Söpörj el Extra helyek / Szakaszszünetek / Minden fejléc / Szövegdobozok / Hiperhivatkozások / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...
➕ Kreatív betétek: Beszúrás Ezer elválasztó / Jelölőnégyzetek / Rádió gombok / QR-kód / Vonalkód / Átlós vonal táblázat / Egyenletfelirat / Képfelirat / Táblázat felirata / Több kép / Fedezzen fel többet a Csoport beszúrása...
???? Precíziós kiválasztás: Pontosan konkrét oldalak / asztalok / formák / címsor bekezdései / A navigáció javítása a következővel: több Jelölje ki a funkciókat...
⭐ Star Enhancements: Gyorsan navigáljon bármely helyre / ismétlődő szöveg automatikus beszúrása / zökkenőmentesen válthat a dokumentumablakok között / 11 Konverziós eszközök...