Come unire o combinare più righe in un unico paragrafo nel documento di Word?
Se ci sono centinaia e migliaia di paragrafi nel documento di Word, quando si stampa questo documento, sarà necessaria molta carta. Per salvare i documenti, puoi unire queste più righe in un unico paragrafo. Tuttavia, come potresti combinare tutte queste righe in un paragrafo in modo rapido e semplice nel documento di Word?
Unisci o combina più righe in un unico paragrafo con la funzione Trova e sostituisci
Unisci o combina più righe in un unico paragrafo con codice VBA
Unisci o combina più righe in un unico paragrafo con la funzione Trova e sostituisci
L' Trova e sostituisci la funzione in Word può aiutarti a unire più righe in un paragrafo, per favore fai come segue:
1. Seleziona i paragrafi che desideri unire in un unico paragrafo.
2. Quindi fare clic su Casa > Trova > Ricerca avanzata per andare al Trova e sostituisci finestra di dialogo, nel file Trova e sostituisci finestra di dialogo, sotto il file Trova scheda, inserisci ^p nella Trova quello che casella di testo e quindi selezionare Selezione corrente opzione dal Trova dentro elenco a discesa, vedi screenshot:
3. Quindi vai al sostituire scheda e lascia il Sostituire con casella di testo vuota, quindi fare clic su Sostituisci tutto pulsante, vedi screenshot:
4. E tutti i paragrafi selezionati sono stati uniti in un unico paragrafo, vedi screenshot:
Unisci o combina più righe in un unico paragrafo con codice VBA
Ecco un altro metodo utile che può aiutarti a completare questo lavoro in Word, esegui i seguenti passaggi:
1. Seleziona le righe che desideri unire in un paragrafo.
2. Quindi, tieni premuto il pulsante ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
3. Quindi fare clic su inserire > Modulo, copia e incolla sotto il codice nel modulo vuoto aperto.
Codice VBA: unisci più righe in un unico paragrafo:
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. E poi premere F5 chiave per eseguire questo codice e tutti i paragrafi selezionati sono stati combinati in un paragrafo come mostrato nella seguente schermata:
Strumenti di produttività Word consigliati
Kutools per Word: oltre 100 funzionalità avanzate per Word, risparmia il 50% del tempo
- Le operazioni complicate e ripetute possono essere eseguite una sola volta in pochi secondi.
- Inserisci più immagini tra le cartelle nel documento di Word contemporaneamente.
- Unisci e combina più file di Word tra cartelle in uno con l'ordine desiderato.
- Suddividi il documento corrente in documenti separati in base a titolo, interruzione di sezione o altri criteri.
- Converti file tra Doc e Docx, Docx e PDF, raccolta di strumenti per conversioni e selezioni comuni e così via ...
