Σε αυτό το άρθρο, θα δημιουργήσουμε μια μακροεντολή για το άνοιγμα του εγγράφου word.
Για να ανοίξετε ένα έγγραφο word, θα καθορίσουμε την πλήρη διαδρομή του εγγράφου στο πλαίσιο κειμένου στο κύριο φύλλο. Αφού καθορίσετε την πλήρη διαδρομή, κάντε κλικ στο κουμπί "Υποβολή" για να εκτελέσετε τη μακροεντολή.
Επεξήγηση κώδικα
Dim WDApp ως Word. Εφαρμογή
Ο παραπάνω κώδικας χρησιμοποιείται για τη δήλωση αντικειμένου της εφαρμογής λέξης.
Ορισμός WDApp = CreateObject ("word.Application")
Ο παραπάνω κώδικας χρησιμοποιείται για τη δημιουργία ενός νέου αντικειμένου της εφαρμογής λέξης. Η εφαρμογή Word θα αρχίσει να εκτελείται, αλλά από προεπιλογή, δεν θα είναι ορατή.
WDApp.Visible = True
Ο παραπάνω κώδικας χρησιμοποιείται για να κάνει ορατό το παράθυρο της εφαρμογής λέξεων.
Ορισμός WDDoc = WDApp.Documents.Open (Όνομα αρχείου)
Ο παραπάνω κώδικας χρησιμοποιείται για να ανοίξει το έγγραφο λέξης.
Ρύθμιση WDDoc = Τίποτα
Ρύθμιση WDApp = Τίποτα
Ο παραπάνω κώδικας χρησιμοποιείται για την απελευθέρωση οποιασδήποτε μνήμης που καταλαμβάνεται από το αντικείμενο.
Ακολουθήστε παρακάτω για τον κωδικό
Sub OpeningWordFile () 'Δήλωση μεταβλητών Dim FileName As String Dim WDApp As Word.Application Dim WDDoc As Word.Document' Λήψη του ονόματος αρχείου από το πλαίσιο κειμένου FileName = Sheets ("Main"). TextBox1.Value 'Δημιουργία αντικειμένου της λέξης εφαρμογή Set WDApp = CreateObject ("word.Application") 'Καθορισμός της εφαρμογής λέξεων WDApp.Visible = True' Άνοιγμα του απαιτούμενου εγγράφου λέξεων Σετ WDDoc = WDApp.Documents.Open (Όνομα αρχείου) 'Απελευθέρωση της μνήμης που χρησιμοποιείται από τη μεταβλητή αντικειμένου Ορισμός WDDoc = Τίποτα δεν WDApp = Τίποτα Τέλος υπο
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email