2 Γρήγοροι τρόποι για ομαδική διαγραφή πολλών σελιδοδεικτών στο έγγραφο του Word

Σε αυτό το άρθρο, θέλουμε να σας παρέχουμε δύο γρήγορους τρόπους για να διαγράψετε ομαδικά πολλούς σελιδοδείκτες στο έγγραφο του Word.

Κανονικά, μπορείτε να προσθέσετε ή να διαγράψετε έναν μόνο σελιδοδείκτη στο έγγραφο του Word χωρίς κανένα εμπόδιο. Ωστόσο, όταν πρόκειται για πολλούς σελιδοδείκτες, μπορεί να νιώσετε τα χέρια σας δεμένα.

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

Μέθοδος 1: Μαζική διαγραφή όλων των σελιδοδεικτών σε ένα έγγραφο

1. Πρώτα απ 'όλα, καλέστε τον επεξεργαστή VBA στο Word πατώντας "Alt+F11".
2. Στη συνέχεια, στον αριστερό πίνακα "Project", κάντε κλικ στο "Normal".
3. Στη συνέχεια, κάντε κλικ στην καρτέλα «Εισαγωγή» και επιλέξτε «Μονάδα» στο μενού της.
4. Κάντε διπλό κλικ για να ανοίξετε τη μονάδα.
5. Τώρα επικολλήστε τους παρακάτω κωδικούς εκεί:

Sub DeleteAllBookmarksInDoc()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  nBookmark = objDoc.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this document?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In objDoc.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All bookmarks in this document have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

6. Στη συνέχεια, κάντε κλικ στο κουμπί "Εκτέλεση".
7. Στη συνέχεια θα λάβετε ένα πλαίσιο ερωτήσεων. Και μπορείτε να δείτε τον συνολικό αριθμό σελιδοδεικτών στο τρέχον έγγραφο. Κάντε κλικ στο «Ναι» για να τα διαγράψετε όλα ή στο «Όχι» για έξοδο από τη μακροεντολή.
8. Εάν επιλέξετε «Ναι», θα λάβετε ένα μήνυμα όπως παρακάτω:

Μέθοδος 2: Μαζική διαγραφή όλων των σελιδοδεικτών σε μια επιλογή

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

1. Για να ξεκινήσετε, επαναλάβετε τα παραπάνω βήματα για να εγκαταστήσετε και να εκτελέσετε μια μακροεντολή.
2. Θυμηθείτε να αντικαταστήσετε τη μακροεντολή με αυτήν:

Sub DeleteAllBookmarksInSelection()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
 
  Application.ScreenUpdating = False
 
  nBookmark = Selection.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this selection?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In Selection.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All " & nBookmark & " bookmark(s) in this selection have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

3. Πριν εκτελέσετε τη μακροεντολή, πρέπει να κάνετε μια επιλογή σε μια σειρά περιεχομένων.
4. Και κατά τη διαδικασία εκτέλεσης των κωδικών, θα λάβετε τα ίδια 2 πλαίσια μηνυμάτων που εμφανίζονται στη μέθοδο 1.

Το αποτέλεσμα είναι ότι θα αφαιρεθούν μόνο οι σελιδοδείκτες στην επιλογή.

Ετοιμαστείτε για την καταστροφή εγγράφων

Η απώλεια δεδομένων μπορεί να συμβεί σε οποιονδήποτε ανά πάσα στιγμή. Και το απρόβλεπτο του μας κάνει να πάρουμε την ευκαιρία να μην βρεθούμε σε κακή τύχη. Μιλώντας για το θέμα να επισκευή docx, δεν μπορείτε ποτέ να παραλείψετε να επιλέξετε ένα αποτελεσματικό εργαλείο επισκευής εκ των προτέρων.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή xls και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com