Kako združiti ali združiti več vrstic v en odstavek v dokumentu Word?
Če je v dokumentu Word na stotine in tisoče odstavkov, bo za tiskanje tega dokumenta treba veliko papirja. Za varčevanje s papirji lahko te več vrstic združite v en sam odstavek. Kako pa lahko v Wordovem dokumentu vse te vrstice hitro in enostavno združite v en odstavek?
Združite ali združite več vrstic v en odstavek s funkcijo Najdi in zamenjaj
Združite ali združite več vrstic v en odstavek s kodo VBA
Združite ali združite več vrstic v en odstavek s funkcijo Najdi in zamenjaj
O Poišči in zamenjaj funkcija v Wordu vam lahko pomaga združiti več vrstic v en odstavek, naredite tako:
1. Izberite odstavke, ki jih želite združiti v en odstavek.
2. In nato kliknite Domov > Najdi > Napredno iskanje iti na Poišči in zamenjaj v pogovornem oknu v Poišči in zamenjaj v pogovornem oknu pod Najdi zavihek, prosimo vnesite ^p v Našli kaj polje in nato izberite Trenutni izbor možnost iz Najdi spustni seznam, glej posnetek zaslona:
3. Potem pojdite na Zamenjaj in zapustite Zamenjaj z polje z besedilom prazno in kliknite Zamenjaj vse gumb, glej posnetek zaslona:
4. Vsi izbrani odstavki so bili združeni v en sam odstavek, glejte posnetek zaslona:
Združite ali združite več vrstic v en odstavek s kodo VBA
Tu je še ena uporabna metoda, ki vam lahko pomaga dokončati to delo v Wordu, naredite naslednje:
1. Izberite vrstice, ki jih želite združiti v en odstavek.
2. Nato držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
3. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul.
Koda VBA: Združi več vrstic v en sam odstavek:
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. In nato pritisnite F5 ključ za zagon te kode, vsi izbrani odstavki pa so združeni v en odstavek, kot je prikazano na sliki spodaj:
Najboljša pisarniška orodja za produktivnost
Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!
🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino / Prepiši besedilo / Povzemite dokumente / Povprašajte za informacije na podlagi dokumenta, vse v Wordu
📘 Obvladovanje dokumentov: Razdeljene strani / Spoji dokumente / Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...) / Paketna pretvorba v PDF / Izvozi strani kot slike / Natisnite več datotek hkrati...
✏ Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek / Spremeni velikost vseh slik / Prenos vrstic in stolpcev tabele / Pretvori tabelo v besedilo...
🧹 Čiščenje brez napora: Pometite stran Dodatni prostori / Prelomi oddelkov / Vse glave / Besedilna polja / Hiperpovezave / Za več orodij za odstranjevanje pojdite na naš Odstrani skupino...
➕ Ustvarjalni vložki: Vstavi Tisoč ločila / Potrditvena polja / Radijske tipke / QR koda / Črtna koda / Tabela z diagonalno črto / Naslov enačbe / Opis slike / Naslov tabele / Več slik / Odkrijte več v Vstavi skupino...
???? Natančne izbire: Natančna točka določene strani / mize / Oblike / odstavki naslova / Izboljšajte navigacijo z več Izberite funkcije...
⭐ Izboljšave zvezdic: Hitra navigacija do katere koli lokacije / samodejno vstavljanje ponavljajočega se besedila / brez težav preklapljate med okni dokumentov / 11 Orodja za pretvorbo...
