Σε αυτήν την ανάρτηση, θα θέλαμε να μοιραστούμε μαζί σας 4 μεθόδους για να αφαιρέσετε το διαχωριστικό υποσημείωσης ή σημείωσης τέλους στο έγγραφο του Word σας.
Αν ποτέ εισαγάγετε μια υποσημείωση ή μια σημείωση τέλους στο έγγραφο, θα διαπιστώσετε ότι υπάρχει πάντα μια οριζόντια γραμμή πάνω από τα κείμενα. Αυτό το διαχωριστικό επισημαίνει με σαφήνεια την περιοχή υποσημείωσης ή τέλους. Ωστόσο, μερικοί άνθρωποι μπορεί να το βρουν ενοχλητικό και θα ήθελαν να το ξεφορτωθούν. Αυτό το άρθρο θα σας παρέχει 4 μεθόδους για να το κάνετε αυτό.
Μέθοδος 1: Αφαιρέστε το διαχωριστικό υποσημειώσεων με μη αυτόματο τρόπο
- Πρώτα, κάντε κλικ στην καρτέλα "Προβολή" και στη συνέχεια κάντε κλικ στην προβολή "Πρόχειρο".
- Στη συνέχεια, κάντε κλικ στην επιλογή "Αναφορές" και, στη συνέχεια, κάντε κλικ στην επιλογή "Εμφάνιση σημειώσεων" στην περιοχή "Υποσημειώσεις".
- Τώρα, εάν το έγγραφό σας περιέχει και υποσημειώσεις και σημειώσεις τέλους, τότε θα εμφανιστεί ένα πλαίσιο. Επιλέξτε να προβάλετε είτε την περιοχή υποσημείωσης είτε την περιοχή σημείωσης τέλους και, στη συνέχεια, κάντε κλικ στο "OK". Τώρα ας επιλέξουμε πρώτα «Προβολή περιοχής υποσημείωσης».
- Θα ανοίξει ένα παράθυρο σημειώσεων στο κάτω μέρος της οθόνης. Κάντε κλικ στο αναπτυσσόμενο κουμπί για να επιλέξετε "Διαχωριστής υποσημειώσεων".
- Στη συνέχεια κάντε κλικ για να έχετε το διαχωριστικό στην επιλογή. Πατήστε είτε "Backspace" ή "Delete" για να αφαιρέσετε το διαχωριστικό.
- Και επιλέξτε «Διαχωριστικό συνέχειας υποσημείωσης» και διαγράψτε το επίσης.
- Όταν απαλλαγείτε από το διαχωριστικό, θα μείνει μια κενή γραμμή την οποία δεν μπορείτε να διαγράψετε απευθείας. Εδώ καταλήγουμε σε μια λύση. Αντέχετε το "Διαχωριστικό υποσημειώσεων" έχει επιλεγεί.
- Στη συνέχεια, κάντε κλικ στην καρτέλα "Αρχική σελίδα" και κάντε κλικ στο κουμπί με το βέλος στην ομάδα "Παράγραφος" για να ανοίξετε το παράθυρο διαλόγου με το ίδιο όνομα.
- Επιλέξτε "Multiple" για "Line Spacing", ορίστε την τιμή στο "0.06" και κάντε κλικ στο "OK".
- Τώρα το ύψος της κενή γραμμής μειώνεται στο ελάχιστο. Μπορείτε να αλλάξετε την προβολή ξανά σε "Διάταξη εκτύπωσης".
Ελέγξτε το αποτέλεσμα παρακάτω:
Μέθοδος 2: Καταργήστε το διαχωριστικό σημείωσης τέλους χειροκίνητα
- Επαναλάβετε τα πρώτα 3 βήματα στη μέθοδο 1, αλλά επιλέξτε "Προβολή περιοχής σημειώσεων τέλους" αυτή τη φορά στο πλαίσιο "Εμφάνιση σημειώσεων".
- Στο παράθυρο σημειώσεων που ανοίγει στο κάτω μέρος, επιλέξτε «Διαχωριστικό σημειώσεων τέλους» και επιλέξτε το διαχωριστικό. Στη συνέχεια, διαγράψτε το.
- Στη συνέχεια επιλέξτε "Endnote Continuation Separator" και επιλέξτε το διαχωριστικό και διαγράψτε το.
- Στη συνέχεια, επιλέξτε "Endnote Separator" ξανά κάνοντας κλικ στο αναπτυσσόμενο κουμπί.
- Και επαναλάβετε από το βήμα 8 έως το 10 στη μέθοδο 1.
Εδώ είναι το αποτέλεσμα:
Μέθοδος 3: Καταργήστε το διαχωριστικό υποσημειώσεων εκτελώντας τη μακροεντολή
- Αρχικά, πατήστε "Alt + F11" για να ενεργοποιήσετε το πρόγραμμα επεξεργασίας VBA στο Word.
- Στη συνέχεια κάντε κλικ στο «Κανονικό» και μετά στην καρτέλα «Εισαγωγή».
- Και επιλέξτε "Ενότητα" στη συνέχεια.
- Στη συνέχεια, κάντε διπλό κλικ για να το ανοίξετε και επικολλήστε τη μακροεντολή εκεί:
Sub DeleteTheFootnoteSeparator()
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdNormalView
Else
ActiveWindow.View.Type = wdNormalView
End If
If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow.ActivePane.View.Type = wdWebView Or _
ActiveWindow.ActivePane.View.Type = wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekFootnotes
Else
ActiveWindow.View.SplitSpecial = wdPaneFootnotes
End If
' Delete the footnote separator.
ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeBackspace
Selection.TypeBackspace
' Eliminate the blank line after deleting the footnote separator.
With Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(0.06)
End With
' Delete the footnote continuation separator.
ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeBackspace
Selection.TypeBackspace
' Eliminate the blank line after deleting the footnote continuation separator.
With Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(0.06)
End With
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If
End Sub
- Κάντε κλικ στο "Εκτέλεση".
Η μακροεντολή θα αφαιρέσει αυτόματα όλα τα διαχωριστικά υποσημειώσεων και θα ελαχιστοποιήσει επίσης την κενή γραμμή που απομένει.
Μέθοδος 4: Καταργήστε το διαχωριστικό σημείωσης τέλους εκτελώντας μακροεντολή
Ακολουθήστε τα ακριβή βήματα στη μέθοδο 3 για να εγκαταστήσετε και να εκτελέσετε μια μακροεντολή. Μόνο, αντικαταστήστε τους κωδικούς με αυτούς:
Sub DeleteTheEndnoteSeparator()
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdNormalView
Else
ActiveWindow.View.Type = wdNormalView
End If
If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow.ActivePane.View.Type = wdWebView Or _
ActiveWindow.ActivePane.View.Type = wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekEndnotes
Else
ActiveWindow.View.SplitSpecial = wdPaneEndnotes
End If
' Delete the endnote separator.
ActiveWindow.View.SplitSpecial = wdPaneEndnoteSeparator
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeBackspace
Selection.TypeBackspace
' Eliminate the blank line after deleting the endnote separator.
With Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(0.06)
End With
' Delete the endnote continuation separator.
ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationSeparator
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeBackspace
Selection.TypeBackspace
' Eliminate the blank line after deleting the endnote continuation separator.
With Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(0.06)
End With
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If
End Sub
Αποθηκεύστε τα έγγραφά σας
Κανένα λογισμικό δεν είναι αλάνθαστο και αυτό ισχύει πολύ για το Word. Γενικά, ήταν ένα τόσο χρήσιμο εργαλείο για την επεξεργασία κειμένου. Ωστόσο, υπάρχει λίγος χρόνος εκτός λειτουργίας κατά τη σύμπτυξη του Word, αφήνοντας το έγγραφό σας κατεστραμμένο. Το χειρότερο είναι ότι αυτό το έγγραφο είναι το μόνο αντίγραφο που έχετε. Ειναι τοσο θλιβερο. Αλλά, εάν επιλέξετε ένα κατάλληλο βοηθητικό πρόγραμμα για να επισκευή έγγρ αμέσως, μπορείτε να καταλήξετε με ένα εντελώς διαφορετικό αποτέλεσμα.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή xls και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com