Με το Word Tutorials VB

Το Microsoft Word έχει μια ισχυρή scripting γλώσσα που ονομάζεται Visual Basic , το οποίο μπορείτε να χρησιμοποιήσετε για την αυτοματοποίηση οποιαδήποτε εργασία στο Word . Μπορείτε να δημιουργήσετε δέσμες ενεργειών Visual Basic , που ονομάζεται μακροεντολές , με την καταγραφή τους , είτε με την εισαγωγή τους με το χέρι στην Visual Basic IDE ( ολοκληρωμένο περιβάλλον ανάπτυξης ) των Word.One από τις πιο συνηθισμένες εργασίες που οι χρήστες του Word πρέπει να κάνετε είναι να βρείτε και να αντικαταστήσετε κείμενο . Ενώ η υπάρχουσα λειτουργικότητα του Word για την εύρεση και αντικατάσταση είναι εύκολη στη χρήση , Visual Basic μπορεί να κάνει ακόμα πιο εύκολη . Εισάγετε και εκτελέστε την ακόλουθη μακροεντολή για να μάθετε πώς να βρείτε και να αντικαταστήσετε με τη Visual Basic . Δημιουργήστε το Πρόγραμμα
Η

Θα δημιουργήσει ένα σύντομο πρόγραμμα εισάγοντας άμεσα στην επεξεργασία της Visual Basic IDE . Αλλά θα πρέπει πρώτα ένα δείγμα εγγράφου για να ελέγξετε το πρόγραμμα με . Μέσα Word, ανοίξτε ένα νέο έγγραφο και αποθηκεύστε το με το όνομα " vbReplace.doc . " Αντιγράψτε πολλή κειμένου από άλλο έγγραφο και επικολλήστε την στα vbReplace.doc .

Πατήστε Alt - F11, για να εισάγετε το Visual Basic IDE και να επεκτείνει το υποδένδρο του έργου vbReplace στο παράθυρο Project. Αναπτύξτε το Microsoft Word Αντικείμενα φάκελο και κάντε διπλό κλικ στο εικονίδιο ThisDocument . Visual Basic τοποθετεί το δρομέα στο παράθυρο εισαγωγής κωδικού . Εισάγετε τον παρακάτω κωδικό σε αυτό το παράθυρο .

Public Sub mac ( ) Dim myRange Όπως Σειρά

» να το κάνει με την τρέχουσα paragraphSet myRange = Selection.Paragraphs ( 1 ) . Εύρος

Με myRange.FindClearFormatting.Font.Bold = False.Format = True.Replacement.ClearFormatting.Replacement.Font.Bold = True.Execute Forward : = True , Αντικατάσταση : = wdReplaceAll , _FindText : = " η " , ReplaceWith : = " το " , MatchWholeWord : = TrueEnd WithEnd Sub
εικόνων Εκτελέστε το πρόγραμμα
Η

τώρα που το πρόγραμμα γίνεται , ήρθε η ώρα να το δοκιμάσετε . Επιστροφή στο έγγραφο του Word πατώντας alt - F11 και τοποθετήστε το δρομέα σε οποιαδήποτε τυπική σκέψη , ιδιαίτερα εκείνη που έχει πολλές εμφανίσεις της λέξης " της . " Εκτελέστε τη μακροεντολή πατώντας alt- F8 για να φτάσουμε στην λίστα των μακροεντολών , επιλέγοντας " mac " από τη λίστα και πατώντας Run . Αν υπήρχαν μη έντονα γράμματα περιπτώσεις η στην παράγραφο όπου έχετε τοποθετήσει το δρομέα , που τώρα είναι όλα τολμηρή .

Η Τροποποίηση του Προγράμματος
Η

Έχοντας ένα macro για να κάνει έναν τύπο βρείτε και να αντικαταστήσετε κάποια χρήση , αλλά να είναι σε θέση να προσαρμόζονται εύκολα τη μακροεντολή για να καλύψει διάφορα είδη αντικαταστήσει δραστηριότητες είναι μια πραγματική ώθηση στην παραγωγικότητα . Re - πληκτρολογήστε το Visual Basic IDE ( alt - F11 ) και περιηγηθείτε πίσω από τον κωδικό που έχετε εισάγει , χρησιμοποιώντας το παράθυρο του έργου , όπως περιγράφεται παραπάνω .

Αλλάξτε την υπο Mac , έτσι ώστε να μετατρέπει μερικές από τις « Οι λέξεις" σας έντονη γραφή σε πλάγια " la " s . Αυτή τη φορά , θα περιορίσουν τη λειτουργία αντικαταστήσει για να εργαστούν μόνο σε μία φράση . Εδώ είναι οι μόνες γραμμές που πρέπει να αλλάξει : .

Set myRange = Selection.Paragraphs ( 1 ) Εύρος γίνεται Set myRange = Selection.Sentences ( 1 ) Font.Bold = False γίνεται Font.Bold = true . . . Replacement.Font.Bold = True γίνεται Replacement.Font.italic = True.ReplaceWith : . = " η " γίνεται ReplaceWith : = " la "
εικόνων Εκτελέστε το Αναθεωρημένο Πρόγραμμα
Η

τώρα θα δοκιμάσει το πρόγραμμα με τον ίδιο τρόπο που δοκιμάζεται την αρχική έκδοση . Επιστροφή στο έγγραφο του Word και τοποθετήστε το δρομέα μέσα σε μια πρόταση με κάποιες τολμηρές εμφανίσεις του " The ". Εκτελέστε αναθεωρημένη macro σας, χρησιμοποιώντας τα βήματα που χρησιμοποιείται για να εκτελέσει την αρχική έκδοση . Παρακολουθήστε την τολμηρή »την« σκυτάλη στο " la " s . Σημειώστε επίσης ότι η τρέχουσα περίοδος επηρεάστηκε και όχι το σύνολο της παραγράφου .
Η
εικόνων