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

Γνωρίζετε πώς να επιλέξετε ή να διαγράψετε το περιεχόμενο μεταξύ δύο σελιδοδεικτών σε ένα έγγραφο του Word; Αυτό το άρθρο θα σας δείξει μεθόδους για να το αντιμετωπίσετε.

Επιλέξτε/διαγράψτε κείμενο μεταξύ δύο σελιδοδεικτών με VBA

Επιλέξτε/διαγράψτε κείμενο μεταξύ δύο σελιδοδεικτών με VBA

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

1. Στο έγγραφο, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε τον παρακάτω κώδικα στο παράθυρο Module.

Για την επιλογή ή τη διαγραφή κειμένων μεταξύ δύο σελιδοδεικτών, χρησιμοποιήστε αυτόν τον κωδικό:

Sub SelectBetweenBookmarks()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark：", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark：", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox "Please enter the correct bookmark name", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Select
End Sub

Sub DeleteBetweenBookmarks ()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark：", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark：", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox " Please enter the correct bookmark name ", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Delete
End Sub

3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα.

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

5. Στο δεύτερο Kutools για το Word παράθυρο διαλόγου, πληκτρολογήστε τον σελιδοδείκτη τέλους και κάντε κλικ OK. Δείτε το στιγμιότυπο οθόνης:

Note: Εάν το όνομα σελιδοδείκτη που εισαγάγατε δεν υπάρχει στο έγγραφο, θα εμφανιστεί ένα άλλο παράθυρο διαλόγου Kutools for Word για να σας υπενθυμίσει ότι έχετε εισαγάγει το σωστό.

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

Επιλέξτε κείμενα μεταξύ δύο σελιδοδεικτών:

Διαγραφή κειμένων ανάμεσα σε δύο σελιδοδείκτες.

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

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

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

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

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

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

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

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

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

???? Θέλετε να δοκιμάσετε αυτές τις δυνατότητες; Το Kutools για το Word προσφέρει α Δωρεάν δοκιμαστική περίοδο 60, χωρίς περιορισμούς! 🚀

Δωρεάν κατέβασμα     Δείτε Περισσότερα     Άμεση αγορά