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 ".
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα