Πώς να διαγράψετε γρήγορα πολλές σελίδες στο έγγραφο του Word μέσω VBA

Λύσεις λέξεων Σεπτέμβριος 28, 2025

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

Η σύνταξη ενός εγγράφου απαιτεί προσαρμογές συνεχώς. Και η διαγραφή σελίδων περιεχομένου είναι εξίσου απαραίτητη με άλλες τροποποιήσεις. Η αφαίρεση άχρηστων κειμένων είναι εύκολη. Μost οι άνθρωποι επιλέγουν να κάνουν μια επιλογή και στη συνέχεια πατήστε είτε "Διαγραφή" είτε "Backspace" θα κάνουν την εργασία.

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

Διαγραφή τρέχουσας σελίδας

Για εκείνους που μισούν να κάνουν επιλογή σε μια σειρά κειμένων, αυτό μπορεί να είναι η ευλογία σας. Αρχικά ας σας δείξουμε πώς να διαγράψετε την τρέχουσα σελίδα μέσω VBA.

Αρχικά, τοποθετήστε τον κέρσορα στη σελίδα που θέλετε να διαγράψετε.
Ανοίξτε το πρόγραμμα επεξεργασίας VBA στο Word κάνοντας κλικ στην καρτέλα "Προγραμματιστής" και στη συνέχεια στην "Visual Basic". Εάν η καρτέλα "Προγραμματιστής" δεν είναι ακόμη διαθέσιμη στο Ribbon, πατήστε "Alt + F11".
Δεύτερον, κάντε κλικ στο "Normal".
Στη συνέχεια, κάντε κλικ στο "Εισαγωγή" και επιλέξτε "Ενότητα" σε αυτό το μενού.
Ανοίξτε τη νέα λειτουργική μονάδα με διπλό κλικ.
Και επικολλήστε τους παρακάτω κωδικούς εκεί:

Sub DeleteCurrentPage()
  Dim objDoc As Document
 
  ' Initialize
  Set objDoc = ActiveDocument
 
  ' Delete current page.
  objDoc.Bookmarks("\Page").Range.Delete
End Sub

Τέλος, κάντε κλικ στο κουμπί "Εκτέλεση" ή πατήστε "F5".

Διαγραφή πολλαπλών σελίδων

Ακολουθήστε τα παραπάνω βήματα για να εγκαταστήσετε και να εκτελέσετε μια μακροεντολή.
Αντικαταστήστε τη μακροεντολή με αυτήν:

Sub DeletePagesInDoc()
  Dim objRange As Range
  Dim strPage As String
  Dim objDoc As Document
  Dim nSplitItem As Long

  Application.ScreenUpdating = False
 
  ' Initialize and enter page numbers of pages to be deleted.
  Set objDoc = ActiveDocument
  strPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "Delete Pages", "For example: 1,3")
  nSplitItem = UBound(Split(strPage, ","))

  ' Find specified pages and highlight their contents.
  For nSplitItem = nSplitItem To 0 Step -1
    With ActiveDocument
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Split(strPage, ",")(nSplitItem)
      Set objRange = .Bookmarks("\Page").Range
      objRange.Delete
    End With
  Next nSplitItem
 
  Application.ScreenUpdating = True
End Sub

Η εκτέλεση της μακροεντολής θα ενεργοποιήσει ένα πλαίσιο εισαγωγής. Εισαγάγετε τον αριθμό σελίδας των σελίδων που θα διαγραφούν και χρησιμοποιήστε κόμμα για να τις διαχωρίσετε. Μην εισάγετε κενό μετά το κόμμα.
Στη συνέχεια, κάντε κλικ στο "OK" για να συνεχίσετε.

Φυσικά, μπορείτε να χρησιμοποιήσετε αυτήν τη μακροεντολή για να διαγράψετε την τρέχουσα σελίδα. Απλώς εισαγάγετε τον αριθμό της σελίδας.

Μην αφήσετε τη διαφθορά να σας σταματήσει

Μόλις συμβεί μια καταστροφή δεδομένων, είναι βέβαιο ότι θα επιβραδύνει την καθημερινή σας εργασία και θα πρέπει να αναλάβετε το επιπλέονost επισης. Για να βεβαιωθείτε ότι τα δεδομένα σας είναι ασφαλή και υγιή, καλύτερα να αποκτήσετε ένα doc ζημιά εργαλείο επισκευής.

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

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