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 Startseite > FINDE > Erweiterte Suche um zu gehen Suchen und Ersetzen Dialogfeld, in der Suchen und Ersetzen Dialogfeld unter FINDE 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:
Empfohlene Word-Produktivitätswerkzeuge
Kutools für Word - Mehr als 100 erweiterte Funktionen für Word, sparen Sie 50% Zeit
- Komplizierte und wiederholte Vorgänge können in Sekunden einmalig verarbeitet werden.
- Fügen Sie mehrere Bilder über Ordner hinweg gleichzeitig in ein Word-Dokument ein.
- Führen Sie mehrere Word-Dateien in Ordnern zu einer gewünschten Reihenfolge zusammen.
- Teilen Sie das aktuelle Dokument nach Überschrift, Abschnittswechsel oder anderen Kriterien in separate Dokumente auf.
- Konvertieren Sie Dateien zwischen Doc und Docx, Docx und PDF, eine Sammlung von Tools für allgemeine Konvertierungen und Auswahl usw.
