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 Home > 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:
Priporočena orodja za produktivnost besed
Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa
- Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
- V Wordov dokument hkrati vstavite več slik v mape.
- Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
- Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
- Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
