Πώς να συγχωνεύσετε ή να συνδυάσετε πολλές γραμμές σε μία παράγραφο στο έγγραφο του Word;
Εάν υπάρχουν εκατοντάδες και χιλιάδες παράγραφοι στο έγγραφο του Word, κατά την εκτύπωση αυτού του εγγράφου, θα χρειαστεί πολύ χαρτί. Για την αποθήκευση χαρτιών, μπορείτε να συγχωνεύσετε αυτές τις πολλαπλές γραμμές σε μία μόνο παράγραφο. Ωστόσο, πώς θα μπορούσατε να συνδυάσετε όλες αυτές τις γραμμές σε μία παράγραφο γρήγορα και εύκολα στο έγγραφο του Word;
Συγχώνευση ή συνδυασμός πολλαπλών γραμμών σε μία μόνο παράγραφο με τον κώδικα VBA
Συγχώνευση ή συνδυασμός πολλαπλών γραμμών σε μία μόνο παράγραφο με τη λειτουργία Εύρεση και αντικατάστασης
Η Εύρεση και αντικατάσταση Η λειτουργία στο Word μπορεί να σας βοηθήσει να συγχωνεύσετε πολλές γραμμές σε μία παράγραφο, κάντε το ως εξής:
1. Επιλέξτε τις παραγράφους που θέλετε να συγχωνεύσετε σε μία παράγραφο.
2. Και μετά, κάντε κλικ στο Αρχική > Εύρεση > Σύνθετη εύρεση για να πάει το Εύρεση και αντικατάσταση πλαίσιο διαλόγου, στο Εύρεση και αντικατάσταση πλαίσιο διαλόγου, κάτω από το Εύρεση καρτέλα, εισαγάγετε ^p μέσα στο βρείτε αυτό πλαίσιο κειμένου και, στη συνέχεια, επιλέξτε Τρέχουσα επιλογή Επιλογή από το Βρείτε το αναπτυσσόμενη λίστα, δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια, πηγαίνετε στο Αντικαταστήστε καρτέλα και αφήστε το Αντικατάσταση με πλαίσιο κειμένου κενό και, στη συνέχεια, κάντε κλικ στο Αντικατάσταση όλων κουμπί, δείτε το στιγμιότυπο οθόνης:
4. Και όλες οι επιλεγμένες παράγραφοι έχουν συγχωνευθεί σε μία μόνο παράγραφο, δείτε το στιγμιότυπο οθόνης:
Συγχώνευση ή συνδυασμός πολλαπλών γραμμών σε μία μόνο παράγραφο με τον κώδικα VBA
Εδώ είναι μια άλλη χρήσιμη μέθοδος που μπορεί επίσης να σας βοηθήσει να ολοκληρώσετε αυτήν την εργασία στο Word, κάντε τα παρακάτω βήματα:
1. Επιλέξτε τις γραμμές που θέλετε να συγχωνεύσετε σε μία παράγραφο.
2. Στη συνέχεια, κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
3. Και μετά, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην ανοιχτή κενή ενότητα.
Κωδικός VBA: Συγχώνευση πολλαπλών γραμμών σε μία μόνο παράγραφο:
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. Και στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και όλες οι επιλεγμένες παράγραφοι έχουν συνδυαστεί σε μία παράγραφο όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...