1 Ανοίξτε το πρόγραμμα επεξεργασίας της Visual Basic πατώντας το πλήκτρο " Alt " και " F11 " την ίδια στιγμή . 2
διπλό κλικ στο " ThisWorkbook " στο αριστερό μενού πλοήγησης παράθυρο για να το ανοίξετε , αν δεν είναι ήδη ανοιχτό .
εικόνων 3
Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο παράθυρο κώδικα . Θα ανοίξει το Word , δημιουργήστε ένα νέο έγγραφο και τοποθετήστε τα περιεχόμενα του κελιού A1 στο φύλλο σας στην πρώτη γραμμή του εγγράφου του Word :
Dim wrdApp Όπως Word.Application
Dim wrdDoc Όπως το Word . έγγραφο
Set wrdApp = CreateObject ( " Word.Application " )
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add « δημιουργήστε ένα νέο έγγραφο
Με wrdDoc
. Content.InsertAfter Range ( "A1" )
End With
Η 4
Κάντε κλικ στο " Εργαλεία" και στη συνέχεια " Αναφορές" στο μενού στην κορυφή της επεξεργασίας της Visual Basic . Ελέγξτε " Βιβλιοθήκη αντικειμένων του Microsoft Word " στη λίστα των αναφορών να τοποθετήσετε ένα σημάδι ελέγχου δίπλα σε αυτό , και στη συνέχεια κάντε κλικ στο " OK " για να προσθέσετε την αναφορά .
5
Εκτελέστε τη μακροεντολή πατώντας " F5 " για να δείτε το έγγραφο ανοιχτό .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα