Πώς να Διαγραφή Λευκά λέξη σελίδας σε VBA

Ενώ η Microsoft Word δεν έχει ένα κουμπί ή εργαλείο για κάθε πιθανό σενάριο , μπορείτε να δημιουργήσετε μακροεντολές ορίζονται από το χρήστη , κομμάτια εκτελέσιμο κώδικα , με τη χρήση της Visual Basic for Applications ( VBA ) . Οι μακροεντολές μπορούν να προσαρμόσουν το Word για να ταιριάζει στις ανάγκες σας . Για παράδειγμα , εάν έχετε ένα έγγραφο που διανθίζονται με λευκές σελίδες , μπορεί να φαίνεται σαν η μόνη σας επιλογή είναι να πάει το χέρι μέσα στο έγγραφο και να διαγράψετε τις παράνομες σελίδες . Υπάρχει μια άλλη επιλογή : να χρησιμοποιήσετε μια μακροεντολή VBA για να κάνει τη δουλειά για σας πόδι . Τα πράγματα που θα χρειαστείτε
Word 2010
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Πιέστε το πλήκτρο " Alt " και " F11 " μαζί στο έγγραφο του Word που θέλετε να αφαιρέσετε από τα κενά για να ανοίξετε η Visual Basic ( VBE ) . 2

Κάντε κλικ στο " Εισαγωγή" και στη συνέχεια κάντε κλικ στο κουμπί " ενότητα " για να εισάγετε ένα κενό παράθυρο ενότητα .
εικόνων 3

Cut και επικολλήστε τον παρακάτω κώδικα στο κενό παράθυρο ενότητα :

Public Sub DeleteBlankPage ( )

Selection.GoTo Τι : = wdGoToBookmark , Όνομα : = " \\ σελίδα "

Αν isBlankSelection Στη συνέχεια

Selection.Delete

End If

End Sub

BlankPageSelection Public Function ( )

For Each γ Σε Selection.Characters

Αν ( γ <> vbCr και γ <> vbTab και γ <> vbFormFeed και γ <> " ") Στη συνέχεια

BlankPageSelection = False

Exit Function

End If

Επόμενο

BlankPageSelection = True

End Function
Η

4 Πατήστε το πλήκτρο " F5 "για να εκτελέσετε τη ρουτίνα και να διαγράψετε τις κενές σελίδες από το έγγραφό σας .
Η
εικόνων