¿Cómo fusionar o combinar varias líneas en un solo párrafo en un documento de Word?
Si hay cientos y miles de párrafos en su documento de Word, al imprimir este documento, necesitará mucho papel. Para guardar documentos, puede combinar estas múltiples líneas en un solo párrafo. Sin embargo, ¿cómo podría combinar todas estas líneas en un párrafo de forma rápida y sencilla en un documento de Word?
Fusionar o combinar varias líneas en un solo párrafo con la función Buscar y reemplazar
Fusionar o combinar varias líneas en un solo párrafo con código VBA
Fusionar o combinar varias líneas en un solo párrafo con la función Buscar y reemplazar
Programas de Buscar y reemplazar La función en Word puede ayudarlo a fusionar varias líneas en un párrafo, haga lo siguiente:
1. Seleccione los párrafos que desea fusionar en un solo párrafo.
2. Y luego, haga clic en Inicio > Encuentra > Búsqueda avanzada ir a la Buscar y reemplazar cuadro de diálogo, en el Buscar y reemplazar cuadro de diálogo, debajo del Encuentra pestaña, por favor ingrese ^p en el Encuentra lo que cuadro de texto y luego seleccione Selección actual Opción de la Encontrar en lista desplegable, ver captura de pantalla:
3. Luego ve al Reemplaza pestaña, y deja la Reemplazar con cuadro de texto vacío y luego haga clic en reemplazar todo botón, ver captura de pantalla:
4. Y todos los párrafos seleccionados se han fusionado en un solo párrafo, vea la captura de pantalla:
Fusionar o combinar varias líneas en un solo párrafo con código VBA
Aquí hay otro método útil que también puede ayudarlo a terminar este trabajo en Word, siga los siguientes pasos:
1. Seleccione las líneas que desea fusionar en un párrafo.
2. Luego, mantenga presionado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
3. Y luego, haga clic en recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto.
Código de VBA: combine varias líneas en un solo párrafo:
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. Y luego presione F5 para ejecutar este código, y todos los párrafos seleccionados se han combinado en un solo párrafo como se muestra en la siguiente captura de pantalla:
Herramientas de productividad de palabras recomendadas
Kutools para Word: más de 100 funciones avanzadas para Word, ahorre su 50% de tiempo
- Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
- Inserte varias imágenes en carpetas en un documento de Word a la vez.
- Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
- Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
- Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.






