Πώς να δημιουργήσετε το MS Word Εισαγωγή κειμένου με χρήση της VBA για το Excel

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

Ξεκινήστε το Word και ανοίξτε ένα νέο έγγραφο . Αποθηκεύστε το έγγραφο με νέο όνομα , όπως " C : \\. TestDoc.doc " Σημειώστε το όνομα που επιλέξατε , καθώς θα πρέπει να το χρησιμοποιείτε σε κώδικα VBA σας . Κλείστε το έγγραφο και κλείστε το Word . 2

Ανοίξτε το Excel .
Εικόνων 3

Ξεκινήστε το Visual Basic Editor. Κάντε δεξί κλικ στην καρτέλα " Φύλλο1 " στο κάτω μέρος της οθόνης σας . Επιλέξτε " Προβολή κώδικα ".
Η 4

Προσθέστε τη βιβλιοθήκη που περιέχει τα αντικείμενα , τις ιδιότητες και τις μεθόδους για το Word . Επιλέξτε " Εργαλεία" ακολουθούμενο από το " Αναφορές" από το μενού . Μετακινηθείτε προς τα κάτω στη λίστα μέχρι να βρείτε το " Microsoft Word xx.x βιβλιοθήκη αντικειμένων " ( xx.x ξεχωρίζει για την έκδοση ? . Για παράδειγμα , εάν χρησιμοποιείτε το Office 2007 , αναζητήστε το Microsoft Word 12.0 Object Library ) Επιλέξτε το πλαίσιο ελέγχου , και στη συνέχεια κάντε κλικ στο κουμπί "OK".
5

Τοποθετήστε μια μονάδα για να κρατήσει τον κωδικό σας επιλέγοντας "Εισαγωγή ", ακολουθούμενο από " ενότητα " από το μενού .
Η 6

Ξεκινήστε μια υποδιαδικασία . Πληκτρολογήστε το ακόλουθο στη νέα λειτουργική μονάδα :

Sub Word_Text ( )

Πατήστε "Enter ". Το Excel δημιουργεί αυτόματα μια δήλωση " End Sub" .
Η 7

Δήλωση μεταβλητών . Πληκτρολογήστε τον ακόλουθο κώδικα μεταξύ των " Sub" και " End Sub " δηλώσεις :

Dim wdApp As Object , wdDoc As Object

Dim wordfile Όπως String , enterstring Όπως String
Η 8

Ρυθμίστε την τιμή της μεταβλητής " wordfile , " προσδιορίζοντας το δοκιμαστικό έγγραφο που δημιουργήσατε στο Word . Εάν αργότερα θέλετε να χρησιμοποιήσετε ένα διαφορετικό έγγραφο του Word , αλλάξτε το όνομα του αρχείου σε αυτή τη γραμμή κώδικα . Πληκτρολογήστε τα ακόλουθα :

wordfile = "c : \\ testdoc.doc "
Η

9 Ρυθμίστε την τιμή της μεταβλητής " enterstring " στο κείμενο που θέλετε να προσθέσετε στην κορυφή της το έγγραφο του Word . Πληκτρολογήστε το ακόλουθο :

enterstring = " . Προσθήκη αυτό το κείμενο στο αρχείο "

10

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

On Error Resume Next

Set wdApp = GetObject ( " Word.Application " )

Εάν wdApp δεν είναι τίποτα Τότε

Set wdApp = CreateObject ( " Word.Application " )

End If

On Error GoTo 0
Η

11 Προσθήκη κώδικα για να ανοίξετε το έγγραφο του Word . Πληκτρολογήστε το ακόλουθο :

Set wdDoc = GetObject ( wordfile )
Η

12 Προσθήκη κώδικα για να κάνει την εφαρμογή του Word ορατή , και , στη συνέχεια, μετακινήστε το σημείο εισαγωγής στην αρχή του εγγράφου . Πληκτρολογήστε τα ακόλουθα : .

Με wdApp

Visible = True

Selection.HomeKey Μονάδα : . = WdStory , Επέκταση : = wdMove

End With
Τετάρτη 13

Προσθήκη κώδικα για να γράψει το κείμενο του δείγματος σε " enterstring " στο έγγραφο του Word που ακολουθείται από ένα χαρακτήρα επαναφοράς . Πληκτρολογήστε τα ακόλουθα : . .

Με wdDoc.Content

InsertAfter enterstring

InsertParagraphAfter

End με τη
14

Προσθήκη κώδικα για να αδειάσει τις μεταβλητές αντικειμένου , προκειμένου να απελευθερώσει τη μνήμη που χρησιμοποιείται από την εφαρμογή . Πληκτρολογήστε τα ακόλουθα : .

Set wdDoc = Τίποτα

Set wdApp = Τίποτα

Αφήστε το "End Sub" δήλωση στη θέση
Η 15

εκτελέσει τον κώδικα . Επιλέξτε " Run ", ακολουθούμενο από το " Run Sub /UserForm " από το μενού .
Τετάρτη 16

Δείτε το έγγραφο του Word δείγματος που δημιουργήσατε στο βήμα 1 . Στην κορυφή του εγγράφου , θα πρέπει να δείτε μια γραμμή που γράφει , "Προσθήκη αυτού του κειμένου στο αρχείο . "
Η
εικόνων