Πώς να Εκχώρηση αντικείμενα του Excel στο Word αντικείμενα σε VBA

Excel είναι το λογισμικό υπολογιστικών φύλλων που περιλαμβάνονται στο Microsoft Office Suite . Το Word είναι ο επεξεργαστής κειμένου του Microsoft Office Suite . VBA ( Visual Basic for Applications ) είναι μια γλώσσα programing χρησιμοποιείται για τη δημιουργία μακροεντολών , τα οποία είναι μικρά προγράμματα που αυτοματοποιούν τις διαδικασίες από τις εφαρμογές . Είναι συχνά χρήσιμο να έχουν πρόσβαση σε αντικείμενα από ένα υπολογιστικό φύλλο του Excel και την πτώση τους σε αντικείμενα του Word χωρίς εναλλαγή μεταξύ των παραθύρων . Το Excel Visual Basic Editor επιτρέπει στους χρήστες να γράφουν μακροεντολές που επικοινωνούν μεταξύ του Excel και Word. Οδηγίες
Η 1

Ξεκινήστε το Microsoft Word . Κάντε κλικ στο κουμπί " Έναρξη", " Microsoft Office Suite », « Λόγος». 2

Εκκίνηση του Microsoft Excel . Κάντε κλικ στο κουμπί " Έναρξη", " Microsoft Office Suite , " " Excel ".
Εικόνων 3

Ξεκινήστε το Visual Basic Editor. Ενώ το παράθυρο του Excel είναι στην οθόνη , πατήστε το πλήκτρο "Alt " και κρατήστε το πατημένο , στη συνέχεια, πατήστε το κουμπί " F11 ". Η Visual Basic Editor θα εμφανιστεί πάνω από το φύλλο εργασίας του Excel .
Η 4

Αντιγράψτε τον παρακάτω κώδικα στη Visual Basic. Επιλέξτε τον κωδικό και κάντε κλικ στο κουμπί "Επεξεργασία ", " Αντιγραφή". Κάντε κλικ στην Επεξεργασία Visual Basic , στη συνέχεια, κάντε κλικ στο κουμπί "Επεξεργασία ", " Επικόλληση".

Sub RangeToDocument ( )

« Ορίστε μία παραπομπή VBE στο Microsoft Word βιβλιοθήκη αντικειμένων

Dim WDApp Όπως Word.Application

Dim WDDoc Όπως Word.Document

« Βεβαιωθείτε ότι μια σειρά επιλέγεται

If Not TypeName ( Επιλογή ) = " σειρά " τότε

MsgBox " Παρακαλώ επιλέξτε μια περιοχή του φύλλου εργασίας και προσπαθήστε ξανά . " ,

vbExclamation , _ " Δεν σειρά Επιλεγμένα "

Else

« Αναφορά υπάρχουσα παρουσία του Word

Set WDApp = GetObject ( " Word.Application " )

« Αναφορά ενεργό έγγραφο

Set WDDoc = WDApp.ActiveDocument

« Αναφορά ενεργό
slide

'Copy το εύρος

Selection.Copy

« επικόλληση το εύρος

WDApp.Selection.PasteSpecial Link: = False , Τύπος δεδομένων : = wdPasteRTF , _

Τοποθέτηση : = wdInLine , DisplayAsIcon : = False

« Clean up

Set WDDoc = Τίποτα

Set WDApp = Τίποτα

End If

End Sub
5

Αποθηκεύστε τον κώδικα . Κάντε κλικ στο " Αρχείο ", " Αποθήκευση ως . " Ένα παράθυρο διαλόγου αποθηκεύσετε θα εμφανιστεί . Δώστε στο αρχείο ένα όνομα όπως " excel -word " και στη συνέχεια πατήστε αποθήκευση . Ο διάλογος θα επιλέξει αυτόματα την επέκταση .
Η 6

Μεταβείτε στο περιβάλλον εργασίας του Excel πατώντας και κρατώντας πατημένο το " Alt " και στη συνέχεια πατώντας το πλήκτρο " F11 ".
Η 7

Εκτελέστε τη μακροεντολή . Επιλέξτε αρκετά κελιά από το φύλλο εργασίας του Excel . Κάντε κλικ στο " Μακροεντολές ", τότε το όνομα που έδωσε το Macro ( σε αυτή την περίπτωση " excel -word " ) . Ο κωδικός θα αντιγράψει τα δεδομένα στα κελιά σε ένα αντικείμενο του Excel , στη συνέχεια, επικολλήσετε σε ένα αντικείμενο του Word και να το εμφανίσετε στο παράθυρο του Word .
8

Τροποποιήστε τον κώδικα . Ανοίξτε το Macro στη Visual Basic και να επεξεργαστείτε τον κώδικα για να προσαρμόσετε το Macro στις συγκεκριμένες ανάγκες σας .
Η
εικόνων