Cum să îmbinați sau să combinați mai multe linii într-un singur paragraf în documentul Word?
Dacă există sute și mii de paragrafe în documentul dvs. Word, la imprimarea acestui document, va avea nevoie de multă hârtie. Pentru salvarea lucrărilor, puteți îmbina aceste linii multiple într-un singur paragraf. Cu toate acestea, cum ați putea combina toate aceste linii într-un singur paragraf rapid și ușor în documentul Word?
Îmbinați sau combinați mai multe linii într-un singur paragraf cu funcția Găsiți și înlocuiți
Combinați sau combinați mai multe linii într-un singur paragraf cu codul VBA
Îmbinați sau combinați mai multe linii într-un singur paragraf cu funcția Găsiți și înlocuiți
Găsiți și înlocuiți funcția din Word vă poate ajuta să îmbinați mai multe linii într-un singur paragraf, vă rugăm să procedați astfel:
1. Selectați paragrafele pe care doriți să le îmbinați într-un singur paragraf.
2. Apoi, faceți clic Acasa > Găsi > Căutare avansată a merge la Găsiți și înlocuiți caseta de dialog, în Găsiți și înlocuiți caseta de dialog, sub Găsi filă, vă rugăm să introduceți ^p în Gaseste ce caseta de text, apoi selectați Selecție curentă opțiune de la Gasit in lista derulantă, vezi captura de ecran:
3. Apoi du-te la Înlocui fila și lăsați fișierul Înlocui cu caseta de text goală, apoi faceți clic pe Înlocuiește-le pe toate buton, vezi captura de ecran:
4. Și toate paragrafele selectate au fost îmbinate într-un singur paragraf, consultați captura de ecran:
Combinați sau combinați mai multe linii într-un singur paragraf cu codul VBA
Iată o altă metodă utilă care vă poate ajuta, de asemenea, să finalizați această lucrare în Word.
1. Selectați liniile pe care doriți să le îmbinați într-un singur paragraf.
2. Apoi, țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
3. Apoi, faceți clic Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis.
Cod VBA: îmbinați mai multe linii într-un singur paragraf:
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. Și apoi apăsați F5 tasta pentru a rula acest cod și toate paragrafele selectate au fost combinate într-un singur paragraf, după cum se arată în următoarea captură de ecran:
Instrumente de productivitate Word recomandate
Kutools pentru Word - Mai mult de 100 de funcții avansate pentru Word, economisiți-vă 50% timp
- Operațiile complicate și repetate pot fi efectuate o singură dată în câteva secunde.
- Inserați mai multe imagini în foldere în documentul Word simultan.
- Combinați și combinați mai multe fișiere Word din foldere într-unul singur cu comanda dorită.
- Împărțiți documentul curent în documente separate în funcție de titlu, secțiune de secțiune sau alte criterii.
- Convertiți fișiere între Doc și Docx, Docx și PDF, colecție de instrumente pentru conversii și selecție obișnuite și așa mai departe ...






