Wie füge ich mehrere Zeilen in einem einzigen Absatz in einem Word-Dokument zusammen oder kombiniere sie?
Wenn Ihr Word-Dokument Hunderte und Tausende von Absätzen enthält, wird beim Drucken dieses Dokuments viel Papier benötigt. Zum Speichern von Papieren können Sie diese mehreren Zeilen zu einem einzigen Absatz zusammenführen. Wie können Sie jedoch alle diese Zeilen in Word-Dokumenten schnell und einfach zu einem Absatz zusammenfassen?
Führen Sie mehrere Zeilen zu einem einzigen Absatz mit VBA-Code zusammen oder kombinieren Sie sie
Führen Sie mehrere Zeilen mit der Funktion Suchen und Ersetzen zu einem einzigen Absatz zusammen oder kombinieren Sie sie
Das Suchen und Ersetzen Die Funktion in Word kann Ihnen dabei helfen, mehrere Zeilen zu einem Absatz zusammenzuführen. Gehen Sie dazu folgendermaßen vor:
1. Wählen Sie die Absätze aus, die Sie zu einem Absatz zusammenführen möchten.
2. Und dann klicken Home > Finden Sie > Erweiterte Suche um zu gehen Suchen und Ersetzen Dialogfeld, in der Suchen und Ersetzen Dialogfeld unter Finden Sie Tab, bitte eingeben ^p in die Finden Sie, was Textfeld, und wählen Sie dann Aktuelle Auswahl Option von der Zu finden in Dropdown-Liste, siehe Screenshot:
3. Dann geh zum Ersetzen Tab und verlassen Sie die Ersetzen durch Textfeld leer, und klicken Sie dann auf Alle ersetzen Schaltfläche, siehe Screenshot:
4. Alle ausgewählten Absätze wurden zu einem einzigen Absatz zusammengeführt, siehe Screenshot:
Führen Sie mehrere Zeilen zu einem einzigen Absatz mit VBA-Code zusammen oder kombinieren Sie sie
Hier ist eine weitere nützliche Methode, mit der Sie diesen Job in Word beenden können. Führen Sie die folgenden Schritte aus:
1. Wählen Sie die Zeilen aus, die Sie zu einem Absatz zusammenführen möchten.
2. Halten Sie dann die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
3. Und dann klicken Insert > ModulKopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein.
VBA-Code: Führen Sie mehrere Zeilen zu einem einzigen Absatz zusammen:
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. Und dann drücken F5 Schlüssel zum Ausführen dieses Codes, und alle ausgewählten Absätze wurden wie in einem Screenshot gezeigt zu einem Absatz zusammengefasst:
Beste Office-Produktivitätstools
Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!
🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren / Text umschreiben / Dokumente zusammenfassen / Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word
📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelkonvertierung in PDF / Seiten als Bilder exportieren / Drucken Sie mehrere Dateien gleichzeitig...
✏ Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg / Größe aller Bilder ändern / Vertauschen Sie Tabellenzeilen und -spalten / Tabelle in Text konvertieren...
🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume / Abschnittswechsel / Alle Header / Textfelder / Hyperlinks / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...
➕ Kreative Einsätze: Einfügen Tausend Trennzeichen / Kontrollkästchen / Radio Knöpfe / QR Code / Strichcode / Diagonale Linientabelle / Gleichungsbeschriftung / Bildunterschrift / Tabellenüberschrift / Mehrere Bilder / Entdecken Sie mehr im Gruppe einfügen...
🔍 Präzise Auswahl: Punktgenau bestimmte Seiten / Tabellen / Formen / Überschriften von Absätzen / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...
⭐ Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort / Sich wiederholenden Text automatisch einfügen / Wechseln Sie nahtlos zwischen Dokumentfenstern / 11 Konvertierungstools...