Πώς να αντιγράψει Περιεχόμενα του αρχείου σε Word και αντίστροφα χρησιμοποιώντας VBA

Ένα από τα πρώτα βήματα για την εκμάθηση προγραμματισμού ηλεκτρονικών υπολογιστών είναι να μάθουμε πώς να διαβάζει από ένα αρχείο και να προσθέσετε τα περιεχόμενα σε ένα άλλο , όπως ένα έγγραφο του Word . VBA είναι μια γλώσσα προγραμματισμού που μπορεί να χρησιμοποιηθεί σε εφαρμογές του Microsoft Office για την αυτοματοποίηση των διαδικασιών , όπως η αντιγραφή δεδομένων μεταξύ των αρχείων . Στην VBA , μπορείτε να χρησιμοποιήσετε τα αντικείμενα του Office για να ανοίξετε έγγραφα του Word ή άλλες εφαρμογές του Office , η οποία σας επιτρέπει να έχετε πρόσβαση εξωτερικά προγράμματα και την περαιτέρω επεξεργασία δεδομένων. Τα πράγματα που θα χρειαστείτε για Microsoft Office
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Εκκίνηση του Microsoft Office Word , κάντε κλικ στην καρτέλα "Προγραμματιστής " στην κορδέλα και κάντε κλικ στο " Visual Basic " για να ξεκινήσει το παράθυρο επεξεργασίας VBA . Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα . Δημιουργήστε μια νέα διαδικασία ρουτίνας :

Private copyFileContents Sub ( ) 2

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

Dim wrdApp Όπως Word.Application

Dim wrdDoc Όπως Word.Document

Dim i , r As Integer

Dim lCntr As Integer
εικόνων 3

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

Dim συμβολοσειρά ( 10 ) Όπως String

άνοιγμα " C \\ txt . " για Input Όπως # 1

Do While Not EOF ( 1 )

Input # 1 , Συμβολοσειρά ( lCntr )

lCntr = lCntr + 1

Loop

Close # 1
Η

4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να προσθέσετε τα περιεχόμενα πίνακα για το τρέχον έγγραφο του Word :

για i = 0 Για να lCntr - 1

Selection.TypeParagraph

Selection.TypeText Κείμενο : = Συμβολοσειρά ( i )

MyString ( i - 0 ) = " "

Next i

5

Προσθέστε τον ακόλουθο κώδικα για να προσθέσει κάποια στοιχεία στο τρέχον έγγραφο του Word :

Selection.TypeParagraph

Selection.TypeText Κείμενο : = " Αυτά τα δεδομένα είναι στο Word "

Selection.Expand wdLine
Η

6 Πληκτρολογήστε τον ακόλουθο κώδικα για να ανοίξετε το αρχείο κειμένου και να προσθέσετε το κείμενο που προστίθεται στο προηγούμενο βήμα :

myfile = " C : \\ txt "

fn = FreeFile ( )

Open myfile Για την Έξοδο Όπως fn

Γράψτε # fn , Selection.Text

Κλείσιμο # fn
Η 7

Προσθέστε τον ακόλουθο κώδικα για να απελευθερώσει αντικείμενα του Word από τη μνήμη και τον τερματισμό της διαδικασίας υπο :

wrdApp.Quit

Set wrdDoc = Τίποτα

Set wrdApp = Τίποτα

End Sub
8

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τον κώδικα VBA .
Η
εικόνων