Στο παράδειγμά μας, θέλουμε να ξεκινήσουμε μια νέα περίοδο λειτουργίας του Word και να ανοίξουμε ένα συγκεκριμένο έγγραφο. Το έγγραφο μπορεί στη συνέχεια να επεξεργαστεί. Το Word καλείται χρησιμοποιώντας εντολές από την προηγούμενη ενσωματωμένη βιβλιοθήκη VBA.
Χρησιμοποιήστε την εντολή "Δημιουργία αντικειμένου" για να δημιουργήσετε μια περίοδο λειτουργίας Word από μια εφαρμογή Excel. Μεταφέροντας την παράμετρο "Word.Application", ξεκινάτε μια νέα περίοδο λειτουργίας του Word από το Excel. Ακολουθεί ο πλήρης κωδικός:
Sub StartWord ()
Dim objWordApp ως αντικείμενο
Dim strPath As String
strPfad = "C: \ Document.docx"
Ορισμός objWordApp = _ CreateObject ("Word.application")
Με objWordApp
.Εφαρμογή.Ορατό = True
. Εφαρμογή. Έγγραφα. Άνοιγμα (strPath)
«Εδώ είναι οι εντολές σας
Τέλος με
Ορισμός objWordApp = Τίποτα
Τέλος υπο
Το πρόγραμμα ανοίγει μια περίοδο λειτουργίας του Word και φορτώνει το έγγραφο "C: \ Document.docx". Θα λάβετε ένα μήνυμα σφάλματος εάν το έγγραφο δεν υπάρχει σε αυτήν τη θέση. Από τη θέση "Οι εντολές σας εδώ", εισαγάγετε τις εντολές με τις οποίες αλλάζει το έγγραφο του Word. Παρακαλώ σημειώστε την εντολή στο τέλος της υπορουτίνας:
Ορισμός objWordApp = Τίποτα
Αυτό κλείνει τη σύνδεση από το Excel στο Word μέσω της μεταβλητής αντικειμένου "objWordApp". Αυτό είναι σημαντικό για να επιτευχθεί ένα καθαρό τέλος του προγράμματος.
