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
I 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 > Trovare > Ricerca avanzata per andare al Trova e sostituisci finestra di dialogo, nel file Trova e sostituisci finestra di dialogo, sotto il file Trovare 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 > Moduli, 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:
I migliori strumenti per la produttività in ufficio
Kutools for Word - Migliora la tua esperienza con le parole con Over 100 Caratteristiche notevoli!
🤖 Assistente AI di Kutools: Trasforma la tua scrittura con l'intelligenza artificiale - Genera contenuto / Riscrivere il testo / Riepilogare i documenti / Richiedi informazioni sulla base del documento, tutto all'interno di Word
📘 Padronanza dei documenti: Pagine divise / Unisci documenti / Esporta la selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF / Esporta pagine come immagini / Stampa più file contemporaneamente...
✏ Modifica dei contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasporre righe e colonne della tabella / Converti tabella in testo...
🧹 Pulito senza sforzo: Spazza via Spazi extra / Interruzioni di sezione / Tutte le intestazioni / Caselle di testo / Collegamenti ipertestuali / Per ulteriori strumenti di rimozione, vai al nostro Rimuovi gruppo...
➕ Inserti creativi: Inserisci Mille separatori / Caselle di controllo / Pulsanti di scelta / QR Code / Codice a barre / Tabella della linea diagonale / Didascalia dell'equazione / Didascalia immagine / Didascalia / Immagini multiple / Scopri di più nella Inserisci gruppo...
???? Selezioni di precisione: Individuare pagine specifiche / con tabelle / forme / paragrafi di intestazione / Migliora la navigazione con Scopri di più Seleziona funzionalità...
⭐ Miglioramenti delle stelle: Naviga rapidamente verso qualsiasi luogo / inserire automaticamente testo ripetitivo / passare senza problemi da una finestra all'altra del documento / 11 strumenti di conversione...