Πώς να τρέξει μια Macro σε πολλαπλές αρχεία σε MS Word

Δεδομένου ότι οι εργασίες και τα προσωπικά σχέδια μπορεί εύκολα να επεκταθεί πέρα ​​από ένα ενιαίο έγγραφο του Word , είναι λογικό να ενεργοποιήσετε τις μακροεντολές σας να εργαστείτε σε πολλά έγγραφα . Μπορείτε να το κάνετε αυτό, χρησιμοποιώντας " Open " εντολή Visual Basic για να φορτώσει στο Word ένα αρχείο στο οποίο θέλετε να εκτελέσετε τη μακροεντολή σας . Επεξεργαστεί το αρχείο με τις μακροοικονομικές σας , όπως η αντικατάσταση κειμένου ή χρήση τμημάτων να προσφέρουν μια προεπισκόπηση του εγγράφου . Μετά την εκτέλεση της μακροεντολής , χρησιμοποιήστε " Κλείσιμο" εντολή Visual Basic για να αποθηκεύσετε το έγγραφο στο δίσκο . Οδηγίες
Η

1 Κάντε κλικ στο " Office " "Άνοιγμα " εντολή κουμπιού , στη συνέχεια, περιηγηθείτε και κάντε διπλό κλικ σε ένα αρχείο με μια μακροεντολή που θα θέλατε να τρέξει σε πολλά αρχεία . Κάντε κλικ στο κουμπί "Προγραμματιστής " καρτέλας " Μακροεντολές " για να εμφανίσετε μια λίστα των μακροεντολών στο έγγραφο που μόλις φορτωθεί . 2

Κάντε κλικ στο όνομα της μακροεντολής , κάντε κλικ στο κουμπί " Επεξεργασία" για να εισάγετε το Visual Basic ολοκληρωμένο περιβάλλον ανάπτυξης . Πληκτρολογήστε τα ακόλουθα πριν από την πρώτη ανακοίνωση της μακροοικονομικής . Αυτές οι δηλώσεις προτροπής του χρήστη macro σας για το όνομα του αρχείου στο οποίο θα τρέξει τη μακροεντολή σας . Η « Ενώ η" δήλωση ξεκινά ένα βρόχο , εντός του οποίου η λειτουργία "Άνοιγμα" ανοίγει το αρχείο του Word που καθορίζεται από το χρήστη .

Dim x

X = InputBox ( " Πληκτρολογήστε το όνομα αρχείου" )

Αν ( x <> " " )

Documents.Open x

» - ΚΩΔΙΚΟΣ ΣΑΣ ΑΡΧΙΣΕΙ ΕΔΩ
εικόνων 3

Πληκτρολογήστε πάνω από το σχόλιο « ΚΩΔΙΚΟΣ ΣΑΣ ΑΡΧΙΣΕΙ ΕΔΩ " με το κείμενο που περιγράφει το σκοπό macro σας . Για παράδειγμα , αν έχετε γράψει μια μακροεντολή που αντικαθιστά κάθε εμφάνιση της λέξης " Marianne " με " Ginger ", μπορείτε να πληκτρολογήσετε "Έναρξη " Εύρεση /Αντικατάσταση " κώδικα για το κείμενο Marianne /Ginger »
Η 4

Πληκτρολογήστε τα ακόλουθα μετά την τελευταία δήλωση της μακροεντολής σας . Οι δηλώσεις αυτές αποθηκεύστε και κλείστε το αρχείο που άνοιξε το "Άνοιγμα" δήλωση και προτροπής του χρήστη macro σας για ένα άλλο όνομα αρχείου. Η " Wend " δήλωση τελειώνει το βρόχο που ξεκίνησε με την « Ενώ η" δήλωση.

ActiveDocument.Close wdSaveChanges

X = εισαγωγής ("Δώστε όνομα αρχείου" )

Wend

5

Κάντε κλικ στο εικονίδιο «Λόγος» στη γραμμή εργασιών των Windows για να επιστρέψετε στο Word, κάντε κλικ στο κουμπί " Μακροεντολές " στην καρτέλα "Προγραμματιστής " . Κάντε διπλό κλικ στο όνομα της μακροεντολής σας για να το τρέξει .
Η

6 Πληκτρολογήστε το όνομα του αρχείου που θέλετε να τρέχει macro , όταν ο " Εισάγετε όνομα αρχείου" σας καθοδηγούν έγραψε νωρίτερα εμφανίζεται. Πατήστε το πλήκτρο " Enter" για να αφήσει τη διαδικασία μακροοικονομικής σας το αρχείο .
Η

7 Επαναλάβετε το προηγούμενο βήμα έως ότου έχετε πληκτρολογήσει το όνομα του τελευταίου αρχείου στο οποίο θέλετε macro για να τρέξει. Την επόμενη φορά που θα εμφανιστεί το "Enter όνομα αρχείου" , πιέστε το πλήκτρο "Enter" χωρίς την εισαγωγή ενός αρχείου . Macro σας θα βγείτε .
Η
εικόνων