¿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
El 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 > Encuentre > Búsqueda avanzada ir a la Buscar y reemplazar cuadro de diálogo, en el Buscar y reemplazar cuadro de diálogo, debajo del Encuentre 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:
Las mejores herramientas de productividad de oficina
Kutools for Word - Mejore su experiencia con Word con Over 100 ¡Características notables!
🤖 Asistente de IA de Kutools: Transforma tu escritura con IA - Generar contenido / Reescribir texto / Resumir documentos / Solicite información basado en el documento, todo dentro de Word
📘 Dominio del documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir por lotes a PDF / Exportar páginas como imágenes / Imprima varios archivos a la vez...
✏ Edición de contenidos: Buscar y reemplazar por lotes en varios archivos / Cambiar el tamaño de todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla en texto...
🧹 Limpieza sin esfuerzo: barrer Espacios extra / Saltos de sección / Todos los encabezados / Cuadros de texto / Los hipervínculos / Para obtener más herramientas de extracción, diríjase a Quitar grupo...
➕ Inserciones creativas: Insertar Mil Separadores / Casillas de verificación / Botones de radio / Código QR / Barcode / Tabla de líneas diagonales / Título de la ecuación / Captura de imagen / Pie de tabla / Varias imágenes / Descubre más en el Insertar grupo...
🔍 Selecciones de precisión: Localizar Páginas Específicas / Mesas / Formas / Párrafos de encabezado / Mejorar la navegación con más, Seleccionar características...
⭐ Mejoras de estrellas: Navegar a cualquier ubicación / Insertar automáticamente texto repetitivo / Alternar entre ventanas de documentos / 11 herramientas de conversión...