Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να περάσει δεδομένων μεταξύ έγγραφα του Word χρησιμοποιώντας VBA

Microsoft Office Word είναι μια εφαρμογή επεξεργασίας κειμένου που περιλαμβάνεται στη σουίτα Microsoft Office . Microsoft Visual Basic for Applications ή VBA , είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται συνήθως για να αυτοματοποιήσουν εργασίες ρουτίνας . Μαθαίνοντας πώς να περάσει τα δεδομένα μεταξύ εγγράφων Word χρησιμοποιώντας VBA είναι χρήσιμο όταν θέλετε να συγχωνεύσει συνεχώς έγγραφα του Word με το χέρι . Σε μερικά βήματα που μπορείτε να μάθετε πώς να γράφετε κώδικα VBA για να ανοίξει δύο έγγραφα του Word και να μεταφέρετε δεδομένα μεταξύ τους . Οδηγίες
Η

1 Ανοίξτε το Microsoft Office Word , τύπου " αυτά τα δεδομένα είναι σε firstDoc " και αποθηκεύστε σε " C : \\ " " . FirstDoc.doc ", όπως Κλείστε το έγγραφο . Προσθέστε ένα νέο έγγραφο , πληκτρολογήστε " Αυτά τα στοιχεία είναι στην secondDoc " και αποθηκεύστε σε " C : \\ " " . SecondDoc.doc ", όπως Κλείστε το έγγραφο . 2

Ανοίξτε το Microsoft Office Word , επιλέξτε την καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic ". Κάντε κλικ στο "Εισαγωγή" μενού και στη συνέχεια επιλέξτε " Ενότητα ". Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη λειτουργική μονάδα σας για ανταλλαγή κειμένου μεταξύ " firstDoc.doc " και " secondDoc.doc . "
Εικόνων 3

Private Sub passDataBetweenWordDocs ( )

Dim wrd1App Όπως Word.Application

Dim wrd2App Όπως Word.Application

Set wrd1App = CreateObject ( " Word.Application " )

Σετ wrd2App = CreateObject ( " Word.Application " )

wrd1App.Visible = True

wrd2App.Visible = True

Set wordFirstDoc = wrd1App.Documents.Open ( " C : \\ firstDoc.doc " )

Set wordSecondDoc = wrd2App.Documents.Open ( " C : \\ secondDoc.doc " )

wrd1App.Selection.Expand wdLine

sTextDoc1 = wrd1App.Selection.Text

wrd2App.Selection.Expand wdLine

sTextDoc2 = wrd2App.Selection.Text

wrd1App.Selection.TypeParagraph

wrd1App.Selection.TypeText κείμενο : = " Το κείμενο ήταν πέρασε από secondDoc : " & Κείμενο : = " Το κείμενο ψηφίστηκε από firstDoc : " & sTextDoc1

wrd2App.Selection.TypeParagraph

End Sub
Η 4

Run σας υποπρόγραμμα πατώντας " F5 ".
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα