1 Ανοίξτε το Microsoft Office 2007 , κάντε κλικ στην καρτέλα "Προγραμματιστής " και επιλέξτε " Visual Basic" . . Κάντε κλικ στο " Εργαλεία" , επιλέξτε "Αναφορές" και επιλέξτε " . Microsoft Word 12.0 Object Library Επιλέξτε το" OK " 2
Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια συνάρτηση :
Ιδιωτική insertTextToWord Λειτουργία ( )
Πατήστε "Enter "
εικόνων 3
Πληκτρολογήστε το παρακάτω για να δημιουργήσετε μεταβλητές σας : .
Δημ. wrdApp Όπως Word.Application
Dim wrdDoc Όπως Word.Document
Η 4
Πληκτρολογήστε το παρακάτω, για να ανοίξετε το Word και να προσθέσετε ένα νέο έγγραφο :
Set wrdApp = CreateObject ( " Word.Application " )
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add
5
Πληκτρολογήστε το παρακάτω για να προσθέσετε το κείμενο στο έγγραφό σας :
με wrdApp
Selection.TypeText κείμενο : . = "Αυτό είναι το κείμενο από το Excel εισάγεται σε ένα νέο έγγραφο του Word . "
Selection.TypeParagraph
End With
Εκτελέστε τη λειτουργία σας .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα