Μετάβαση στο κύριο περιεχόμενο

Πώς να αφαιρέσετε όλες τις οριζόντιες γραμμές από το έγγραφο του Word;

Οι οριζόντιες γραμμές μπορούν να χωρίσουν τις παραγράφους με σαφήνεια. Πολλοί χρήστες γνωρίζουν ήδη ότι μπορούν να προσθέσουν οριζόντιες γραμμές στο έγγραφο, πληκτρολογώντας τρεις παύλες, κάτω παύλες ή αστερίσκους και ούτω καθεξής και, στη συνέχεια, πατώντας Enter. Δείτε το στιγμιότυπο οθόνης:

doc αφαιρέστε οριζόντιες γραμμές 1

Πώς να αφαιρέσετε όλες τις οριζόντιες γραμμές από το έγγραφο; Αυτό το σεμινάριο θα σας πει τις απαντήσεις.

Αφαιρέστε με μη αυτόματο τρόπο όλες τις οριζόντιες γραμμές μία προς μία

Καταργήστε όλες τις οριζόντιες γραμμές με τον κώδικα VBA

Καταργήστε όλες τις οριζόντιες γραμμές με το Kutools for Word


Αφαιρέστε με μη αυτόματο τρόπο όλες τις οριζόντιες γραμμές μία προς μία

Εάν θέλετε απλώς να καταργήσετε μερικές οριζόντιες γραμμές, μπορείτε να τις καταργήσετε με μη αυτόματο τρόπο ως εξής:

1. Τοποθετήστε τον κέρσορα πάνω από τη γραμμή.

2. Κάντε κλικ στο Περίγραμμα σελίδας στοιχείο στο Ιστορικό σελίδας ομάδα των Υπηρεσίες αυτί;

doc αφαιρέστε οριζόντιες γραμμές 2

3. Κλίκ σύνορα κάντε κλικ στην καρτέλα Κανένας, Κλίκ OK. Και η επιλεγμένη οριζόντια γραμμή θα διαγραφεί ταυτόχρονα.

doc αφαιρέστε οριζόντιες γραμμές 3


Καταργήστε όλες τις οριζόντιες γραμμές με τον κώδικα VBA

Εάν θέλετε να καταργήσετε όλες τις οριζόντιες γραμμές στο έγγραφο, είναι κουραστικό να τις αφαιρέσετε με μη αυτόματο τρόπο. Το VBA μπορεί να το διευκολύνει, κάντε τα εξής:

1. Τύπος Alt + F11 για να ανοίξετε το παράθυρο VBA στο Word.

2. Κλίκ Μονάδα μέτρησης από Κύριο θέμα και εισαγάγετε τον κωδικό στο Μονάδα μέτρησης παράθυρο;

Κωδικός VBA: Καταργήστε όλες τις οριζόντιες γραμμές σε ένα έγγραφο του Word:

Sub removehline()
Dim ils As Paragraph
For Each ils In ActiveDocument.Paragraphs
ils.Borders(wdBorderBottom).LineStyle =wdLineStyleNone
Next ils
End Sub

3. Κλίκ τρέξιμο πατήστε το κουμπί F5 για άμεση εφαρμογή του VBA. Και όλες οι οριζόντιες γραμμές έχουν διαγραφεί από το έγγραφο.


Καταργήστε όλες τις οριζόντιες γραμμές με το Kutools for Word

Είναι ευκολότερο να αφαιρέσετε όλες τις οριζόντιες γραμμές από ολόκληρο το έγγραφο ή με την επιλογή του εγγράφου με Kutools για το Word.

Kutools για το Word : με περισσότερα από 100 εύχρηστα πρόσθετα Word, δωρεάν δοκιμή χωρίς περιορισμό σε 60 ημέρες. 

1. Κλίκ Κούτολς > ΑΦΑΙΡΕΣΗHorizontal Line, δείτε το στιγμιότυπο οθόνης: 

2. Και τότε όλες οι οριζόντιες γραμμές από ολόκληρο το έγγραφο θα αφαιρεθούν ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:

doc αφαιρέστε οριζόντιες γραμμές 5

Note: Εάν θέλετε να διαγράψετε μέρος οριζόντιων γραμμών, επιλέξτε τα δεδομένα εύρους και, στη συνέχεια, εφαρμόστε αυτήν τη λειτουργία.

Κάντε κλικ για λήψη του Kutools for Word και δωρεάν δοκιμή τώρα!


Επίδειξη: Καταργήστε όλες τις οριζόντιες γραμμές στο Word

Kutools για το Word: με περισσότερα από 100 εύχρηστα πρόσθετα Word, δωρεάν δοκιμή χωρίς περιορισμό σε 60 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!


Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!

🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου  /  Ξαναγράψτε το κείμενο  /  Συνοψίστε τα έγγραφα  /  Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word

📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων  /  Συγχώνευση εγγράφων  /  Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...)  /  Μαζική μετατροπή σε PDF  /  Εξαγωγή σελίδων ως εικόνες  /  Εκτύπωση πολλών αρχείων ταυτόχρονα...

Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία  /  Αλλαγή μεγέθους όλων των εικόνων  /  Μεταφορά σειρών και στηλών πίνακα  /  Μετατροπή πίνακα σε κείμενο...

🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι  /  Διακοπές ενότητας  /  Όλες οι κεφαλίδες  /  Κουτιά κειμένου  /  Υπερ-συνδέσεις  / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...

Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές  /  Πλαίσια ελέγχου  /  Κουμπιά ραδιοφώνου  /  QR Code  /  barcode  /  Διαγώνιος γραμμικός πίνακας  /  Λεζάντα εξίσωσης  /  Λεζάντα εικόνας  /  Λεζάντα πίνακα  /  Πολλαπλές εικόνες  / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...

🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες  /  πίνακες  /  σχήματα  /  επικεφαλίδες παραγράφους  / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...

Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία  /  αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου  /  εναλλαγή μεταξύ των παραθύρων εγγράφων  /  11 Εργαλεία μετατροπής...

???? Θέλετε να δοκιμάσετε αυτές τις δυνατότητες; Το Kutools για το Word προσφέρει α Δωρεάν δοκιμαστική περίοδο 60, χωρίς περιορισμούς! 🚀
 
Comments (13)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA code returns the error 'compile error: must be first statement on line' for the first line. Any thoughts?
This comment was minimized by the moderator on the site
The VBA code returns the error - compile error: must be first statement on line for the first line.
This comment was minimized by the moderator on the site
The VBA code method worked. Thanks so much!
This comment was minimized by the moderator on the site
Thank you, thank you, thank you! I have a multi-gigabyte library of DOCX files that use horizontal lines (=== and ---) as internal section dividers. Thanks to your tip (perhaps the only instance on the web?) I will be able to programmatically split these documents into sub-files. Thanks again
This comment was minimized by the moderator on the site
I love you! OMG. The VBA thing worked!!!! That dump line was driving me crazy.
This comment was minimized by the moderator on the site
140 Ogrady St. Fall River, MA 02720-4911 USA How 3 lines made one line???
This comment was minimized by the moderator on the site
None of this page border stuff worked at all. I searched the document. The horizontal line was at the end, and 10 pages earlier was the culprit, a roman paragraph number lurking in a sentence for no reason at all. When I deleted it it removed the line 10 pages away. I will cut and pate the bugger here. In fact, you can have a set of them from 1 to 6. The then put a line at the bottom of every page. Go figure. MS Word 2007 is the platform. They are there, but do not display. They are just above this line, and will highlight if you mouse over.
This comment was minimized by the moderator on the site
The manual methods did not work, but the VBA code did. Very nice!
This comment was minimized by the moderator on the site
This is amazing!!! BIG THANK YOU for putting the VBA code. Searched in google but yours was the only thing that came up.
This comment was minimized by the moderator on the site
OMG! Thank you. I ran a macro as instructed and managed to remove the line. You were the onlly site among 3 to propose this solution.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations