Πώς να δημιουργήσετε μια αναφορά σε ένα αντικείμενο του Word Χρήση του Excel VBA

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

1 Ανοίξτε το Microsoft Excel 2007, κάντε κλικ στην καρτέλα "Προγραμματιστής " και στη συνέχεια επιλέξτε " Visual Basic ".

Κάντε κλικ στο μενού "Εργαλεία" και επιλέξτε "Αναφορές ... " . Επιλέξτε το πλαίσιο δίπλα στο " Microsoft Word 12.0 Object Library " και επιλέξτε "OK". 2

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα υπορουτίνα :

Sub WordReference ( )

Πατήστε "Enter ".
εικόνων 3

Πληκτρολογήστε το παρακάτω, για να γίνει αναφορά σε ένα αντικείμενο του Word :

Dim WordDoc Όπως Word.Document

Set wordApplication = CreateObject ( " Word.Application " )

Set WordDoc = wordApplication.Documents.Open ( " C : \\ WordDoc.doc " )

Μπορείτε να επεξεργαστείτε το " C : \\ WordDoc.doc " και πληκτρολογήστε μια διαδρομή προς το έγγραφο του Word που θέλετε να παραπέμψετε
Η 4

πληκτρολογήστε το παρακάτω, για να καλέσετε τον " readWord " υπορουτίνα : .

call readWord ( WordDoc )

5

Πληκτρολογήστε το παρακάτω, για να δημιουργήσει το " readWord " υπορουτίνα και να εμφανίσει ένα πλαίσιο μηνύματος με το κείμενο που διαβάζεται από το έγγραφο του Word :

Private Sub readWord ( wrdDoc As Object )

Dim Prange Όπως Word.Range

Dim pCnt Όπως Long

Με wrdDoc

Για pCnt = 1 Για να . Paragraphs.Count

Set Prange = . Range ( Έναρξη : . = παράγραφοι ( pCnt ) Range.Start , _

End : . . . = παράγραφοι ( pCnt ) Range.End )

MsgBox ( pRange.Text )

Επόμενη pCnt

. Κλείσιμο

End With

End Sub
Η

6 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το " WordReference " υπορουτίνα .


Η