Επιλέξτε "Αρχείο " > " Νέα " > " Project" από το μενού . Κάντε κλικ στο " Άλλες γλώσσες " > " Visual Basic " στο " Εγκατεστημένα πρότυπα " πίνακα και επιλέξτε " των Windows Αίτηση ", όπως τον τύπο του έργου . Κάντε κλικ στο " OK " για να ξεκινήσει το νέο έργο . 2
Κάντε κλικ στο " Έργο" > " Add Reference " στο μενού για να προσθέσετε μια διεπαφή στη βιβλιοθήκη του Microsoft Word στο έργο σας . Στο " Add Reference " παράθυρο διαλόγου , επιλέξτε την καρτέλα " COM " . Μετακινηθείτε προς τα κάτω στη λίστα των διεπαφών COM μέχρι να βρείτε το " Microsoft Word XX Object Library " ( όπου XX αντιπροσωπεύει τον αριθμό έκδοσης ) και επιλέξτε το . Ο αριθμός έκδοσης θα διαφέρει ανάλογα με την έκδοση του Office που είναι εγκατεστημένη στον υπολογιστή σας . Κάντε κλικ στο " OK " για να κλείσετε το παράθυρο διαλόγου και να προσθέσετε την αναφορά .
Εικόνων 3
Προσθέστε τα απαραίτητα πεδία ονομάτων στο πρόγραμμά σας έτσι ώστε τα ονόματα των λειτουργιών του Word εκτίθενται . Κάντε κλικ στο κουμπί "Προβολή " > " Code" ή πατήστε το πλήκτρο " Ctrl - Alt - 0 " για να εμφανιστεί το παράθυρο κώδικα . Πληκτρολογήστε τις ακόλουθες δύο γραμμές , όπως τις πρώτες γραμμές κώδικα στο αρχείο :
Εισαγωγές Microsoft.Office.Core
Εισαγωγές Microsoft.Office.Interop
Η 4
Προσθήκη οι δηλώσεις κώδικα για να εμφανίσετε ένα έγγραφο χρησιμοποιώντας την εφαρμογή Word. Σε γενικές γραμμές , αυτός ο κώδικας περιλαμβάνεται σε μια διαδικασία χειρισμού συμβάντων , έτσι ώστε η εφαρμογή να το εκτελέσει, μετά από αίτημα του χρήστη . Ως παράδειγμα , τοποθετήστε ένα στοιχείο ελέγχου κουμπιού στη φόρμα και κάντε διπλό κλικ στο στοιχείο ελέγχου για να προσθέσετε ένα πρόγραμμα χειρισμού συμβάντων στον κώδικα . Προσθέστε δύο μεταβλητών για τα αντικείμενα εφαρμογής και το έγγραφο μέσα στο σώμα της διαδικασίας .
Private Sub Button1_Click ( ...
Dim objWord Όπως New Word.Application
Dim objDocument . Όπως New Word.Document
End Sub
5
Προσθέστε μια δήλωση που ζητά την εφαρμογή για να ανοίξει το συγκεκριμένο έγγραφο Αυτός ο κωδικός προστίθεται επίσης στο πρόγραμμα χειρισμού συμβάντων κλικ το κουμπί :
Private Sub Button1_Click ( ...
Dim objWordApp Όπως New Word.Application
Dim objDocument As New Word.Document
objDocument = objWordApp.Documents.Open ( "C: 0Συλλογή \\ MySample.docx ») . .
End Sub
Η 6
μεταγλώττιση της εφαρμογής πατώντας " F7 " Εκτελέστε το πρόγραμμα πατώντας το πλήκτρο " F5 " Όταν ο χρήστης κλικ στο κουμπί , το πρόγραμμα του Word ξεκινά και εμφανίζεται το καθορισμένο αρχείο .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα