Note: The other languages of the website are Google-translated. Back to English

Πώς να αφαιρέσετε όλες τις οριζόντιες γραμμές από το έγγραφο του 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 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!



Συνιστώμενα εργαλεία παραγωγικότητας του Word

 

Kutools For Word - Περισσότερες από 100 προηγμένες λειτουργίες για το Word, εξοικονομήστε 50% χρόνο

  • Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
  • Εισαγάγετε πολλές εικόνες στους φακέλους στο έγγραφο του Word ταυτόχρονα.
  • Συγχώνευση και συνδυασμός πολλαπλών αρχείων Word σε όλους τους φακέλους σε ένα με την επιθυμητή σειρά.
  • Διαχωρίστε το τρέχον έγγραφο σε ξεχωριστά έγγραφα σύμφωνα με την επικεφαλίδα, το τμήμα αλλαγής ή άλλα κριτήρια.
  • Μετατροπή αρχείων μεταξύ Doc και Docx, Docx και PDF, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...
Σχόλια (13)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
3 «ζώδια της λίρας» δεν θα κάνουν τίποτα. Τα σημάδια των 3 λιρών είναι £££. Αυτό δεν δημιουργεί καμία γραμμή. Νομίζω ότι εννοείς 3 σημάδια HASH (αλλιώς γνωστά ως σημάδια αριθμού): ###
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]3 "ζώδια της λίρας" δεν θα κάνουν τίποτα. Τα σημάδια των 3 λιρών είναι £££. Αυτό δεν δημιουργεί καμία γραμμή. Νομίζω ότι εννοείς 3 σημάδια HASH (αλλιώς γνωστά ως σημάδια αριθμού): ###Με τον Κρις[/quote] Ναι, έχεις δίκιο. 3 σήματα HASH + Enter
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το έγγραφο του Word μου δημιουργείται από το RoboHelp. Κάπου εκεί υπάρχει μια οριζόντια γραμμή, όχι ένα περίγραμμα. Το έγγραφο είναι 1300+ σελίδες. Έψαξα ένα γραφικό και δεν το βρήκα. Στη συνέχεια χρησιμοποίησα τη μακροεντολή σας και απέτυχε στο ils.Borders(wdBorderBottom).LineStyle = wdLineStyleNone. Έχω πολλά πολλά τραπέζια, οπότε χαίρομαι που απέτυχε. :eek: Θέλω πραγματικά να μάθω τι είναι το σενάριο VB για οριζόντια γραμμή (όχι περίγραμμα).
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ω ΘΕΕ ΜΟΥ! Σας ευχαριστώ. Έτρεξα μια μακροεντολή σύμφωνα με τις οδηγίες και κατάφερα να αφαιρέσω τη γραμμή. Ήσασταν ο μόνος ιστότοπος μεταξύ 3 που πρότεινε αυτή τη λύση.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό είναι καταπληκτικό!!! ΜΕΓΑΛΟ ΕΥΧΑΡΙΣΤΩ που βάλατε τον κωδικό VBA. Έψαξα στο google αλλά το δικό σου ήταν το μόνο που προέκυψε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Οι μη αυτόματες μέθοδοι δεν λειτούργησαν, αλλά ο κώδικας VBA λειτούργησε. Πολύ ωραία!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Κανένα από αυτά τα περιγράμματα της σελίδας δεν λειτούργησε καθόλου. Έψαξα το έγγραφο. Η οριζόντια γραμμή βρισκόταν στο τέλος και 10 σελίδες νωρίτερα ήταν ο ένοχος, ένας ρωμαϊκός αριθμός παραγράφου που κρύβεται σε μια πρόταση χωρίς κανένα λόγο. Όταν το διέγραψα αφαίρεσε τη γραμμή 10 σελίδες μακριά. Θα κόψω και θα πατήσω το bugger εδώ. Στην πραγματικότητα, μπορείτε να έχετε ένα σετ από το 1 έως το 6. Στη συνέχεια, βάλτε μια γραμμή στο κάτω μέρος κάθε σελίδας. Πήγαινε φιγούρα. Το MS Word 2007 είναι η πλατφόρμα. Είναι εκεί, αλλά δεν εμφανίζονται. Βρίσκονται ακριβώς πάνω από αυτή τη γραμμή και θα τονιστούν αν περάσετε το ποντίκι από πάνω.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
140 Ogrady St. Fall River, MA 02720-4911 ΗΠΑ Πώς 3 γραμμές έκαναν μια γραμμή;;;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σε αγαπώ! Ω ΘΕΕ ΜΟΥ. Το VBA λειτούργησε!!!! Εκείνη η χωματερή με τρέλανε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ, σας ευχαριστώ, σας ευχαριστώ! Έχω μια βιβλιοθήκη πολλών gigabyte αρχείων DOCX που χρησιμοποιούν οριζόντιες γραμμές (=== και ---) ως εσωτερικά διαχωριστικά τμημάτων. Χάρη στη συμβουλή σας (ίσως το μοναδικό παράδειγμα στον Ιστό;) θα μπορέσω να χωρίσω μέσω προγραμματισμού αυτά τα έγγραφα σε υπο-αρχεία. Ευχαριστώ και πάλι
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Η μέθοδος κώδικα VBA λειτούργησε. Ευχαριστώ πολύ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κώδικας VBA επιστρέφει το σφάλμα - σφάλμα μεταγλώττισης: πρέπει να είναι η πρώτη δήλωση στη γραμμή για την πρώτη γραμμή.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κώδικας VBA επιστρέφει το σφάλμα "Σφάλμα μεταγλώττισης: πρέπει να είναι η πρώτη δήλωση στη γραμμή" για την πρώτη γραμμή. Καμία ιδέα;
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL