Ξεκινήστε το Microsoft Word , κάντε κλικ στην καρτέλα "Προγραμματιστής " , και κάντε κλικ στο " Visual Basic" για να ανοίξει το παράθυρο VB Editor. Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα 2
Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα διαδικασία ρουτίνας : .
Private Sub insertValuesToDB ( )
Η 3
Δημιουργήστε μια μεταβλητή συμβολοσειράς τύπο δεδομένων για να κρατήσει τα δεδομένα του Word που θέλετε να εισαγάγετε :
Dim valueRead Όπως String
4
Επιλέξτε το γραμμή κειμένου στο Word και να το αποθηκεύσετε στην μεταβλητή συμβολοσειράς :
Application.Selection.Expand wdLine
valueRead = Application.Selection.Text
5
Δημιουργία του ADODB μεταβλητές αντικειμένου :
Dim adoConn Όπως ADODB.Connection
Dim adoCmd Όπως ADODB.Command
6
Ορίστε τη διαδρομή και το όνομα της βάσης δεδομένων της Access . Ανοίξτε τη σύνδεση :
Set adoConn = Νέα ADODB.Connection
Με adoConn
ConnectionString = " Provider = Microsoft.ACE.OLEDB.12.0 ? " & _
"Πηγή δεδομένων = C : \\ Northwind 2007.accdb " .
Open
End με τη
7
Δημιουργήστε μια νέα εντολή για να εισαγάγετε τη γραμμή επιλέξατε στο Word σε έναν πίνακα της βάσης δεδομένων της Access : . .
Set adoCmd = Νέα ADODB.Command
με adoCmd
Ενεργός _ = adoConn
CommandText = " INSERT INTO