Πώς να αφαιρέσει Hard Επιστροφές στην VBA

Χρήση της Visual Basic for Applications ( VBA ) για να αφαιρέσετε ένα σκληρό επιστροφή περιλαμβάνει γράφοντας μερικές γραμμές κώδικα εντός της Επεξεργασίας της Visual Basic , ενώ ένα έγγραφο του Word είναι ανοιχτό . Οι γραμμές προσομοιώνουν την εύρεση του ειδικού χαρακτήρα που εισάγει μια σκληρή δήλωση , αντικαθιστώντας το με κενό κείμενο και , στη συνέχεια, η επεξεργασία του εγγράφου . Η κωδικοποίηση δημιουργεί μια μακροεντολή , εντάσσονται σε ένα κουμπί , συντόμευση πληκτρολογίου ή ακόμα και από τη γραμμή εργαλείων . Εκχώρηση συντομεύσεις λειτουργεί καλύτερα για εκείνους που χρειάζονται λίγες μόνο μακροεντολές , επειδή πολλές συντομεύσεις πληκτρολογίου που ήδη είναι σε χρήση σε Microsoft Word ή άλλα προγράμματα του Office . Οδηγίες
Η

1 Ανοίξτε ένα έγγραφο του Word που περιέχει κάποιο κείμενο με σκληρό αποδόσεις . Μέσα στην ενότητα "Home " , κάντε κλικ στο κουμπί "Προγραμματιστής " στην κορυφή του μενού και στη συνέχεια κάντε κλικ στο " Visual Basic" στη δεύτερη σειρά των επιλογών για να ανοίξετε το πρόγραμμα επεξεργασίας VBA . 2

Πληκτρολογήστε τις ακόλουθες γραμμές στο VBA πάνελ επεξεργασία ακριβώς όπως εμφανίζονται . Σημείωση : Η VBA Editor θα εσοχή μερικές γραμμές για λόγους σαφήνειας . Αυτές οι εσοχές δεν μπορεί να αποδειχθεί σε αυτό το άρθρο . Επιπλέον , αυτά είναι τελείες (. ) Στην αρχή των γραμμών 4 έως 13 , το οποίο θα μπορούσε να είναι εύκολο να χάσει στην οθόνη σας . Είναι απαραίτητες . Η σημαντική χαρακτήρα οι μακρο αναζητά και αντικαθιστά με τίποτα είναι το " ^ p" , που αντιπροσωπεύει τον σκληρό μεταφορά μετ 'επιστροφής , που ονομάζεται «Παράγραφος» σήμα από τη Microsoft

Sub RemoveHardReturns ( ) Selection.find.Execute Αντικατάσταση : = wdReplaceAllWith Selection.find.Text = " ^ p" . Replacement.Text = " " . Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchWildcards = False.MatchSoundsLike = False . MatchAllWordForms = FalseEnd WithSelection.find.Execute Αντικατάσταση : = wdReplaceAllActiveWindow.ActivePane.View.ShowAll = Δεν ActiveWindow.ActivePane.View.ShowAllEnd Sub
εικόνων 3

Κάντε κλικ στο εικονίδιο " Κουμπί του Office " στην επάνω αριστερή γωνία του εγγράφου του Word . Κάντε κλικ στο κουμπί " Επιλογές του Word " στο κάτω μέρος της οθόνης που ακολούθησε , στη συνέχεια, " Προσαρμογή . " Στο κάτω μέρος της επόμενης οθόνης , όπου μπορείτε να δείτε " Συντομεύσεις πληκτρολογίου ", κάντε κλικ στο κουμπί " Προσαρμογή" . Στο " Προσαρμογή πληκτρολογίου " οθόνη , μετακινηθείτε προς τα κάτω στην αριστερή στήλη μέχρι να δείτε " Μακροεντολές . " Επιλέξτε το " RemoveHardReturns " macro στη δεξιά στήλη . Θα δείτε μια λίστα με τις τρέχουσες μακρο ανατεθεί πλήκτρα και ένα μέρος για να " Νέο πλήκτρο συντόμευσης . " Διαλέξτε ένα συνδυασμό πλήκτρων δεν είναι σε χρήση , για παράδειγμα , " Ctrl + Q " πιθανότατα δεν χρησιμοποιείται . Κάντε κλικ στο κουμπί " Αντιστοίχιση " και μετά "Κλείσιμο ".
Η 4

Αποθηκεύστε την εκχώρηση στο " Normal.dotm " ήδη στο πλαίσιο "Αποθήκευση" αν θέλετε μόνο να ισχύουν για το τρέχον έγγραφο . Σε αυτή την περίπτωση, χρησιμοποιήστε το pull-down βέλος για να εμφανίσετε το όνομα του εγγράφου και να το αποθηκεύσετε με το έγγραφο .
5

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