Πώς να χρησιμοποιήσετε VBA για να διαβάσετε ένα έγγραφο του Microsoft Word

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

1 Ανοίξτε το Microsoft Excel 2007 . Κάντε κλικ στην καρτέλα "Προγραμματιστής " και επιλέξτε " Visual Basic ". Πληκτρολογήστε " Sub readWordDocuemnt ( ) " και πατήστε "Enter " για να δημιουργήσετε ένα νέο sub 2

Πληκτρολογήστε το παρακάτω για να δηλώσετε τις μεταβλητές σας : .

Δημ. wordApplication Όπως Word.Application

Dim wordDocument Όπως Word.Document

Dim pText Όπως String Dim

Prange Όπως Word.Range

Dim pCount Όπως Long

Dim rXLRow Όπως Long
εικόνων 3

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

Workbooks.Add

Set wordApplication = CreateObject ( " Word.Application " )

Set wordDocument = wordApplication.Documents.Open ( " C : \\ κειμένου σε Word.doc " )
Η 4

Πληκτρολογήστε τα ακόλουθα στο βρόχο μέσα από τις παραγράφους στο έγγραφο του Word και να τα προσθέσετε στο νέο βιβλίο εργασίας του Excel : .

rXLRow = 2

με wordDocument

για pCount = 1 Για να Paragraphs.Count

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

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

pText = pRange.Text

ActiveSheet.Range ( "A" & rXLRow ) . Formula = pText

rXLRow = rXLRow + 1

Επόμενο pCount

. Κλείστε

End With
5

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

wordApplication.Quit

Set wordDocument = Τίποτα : .

Set wordApplication = Τίποτα

ActiveWorkbook.Saved = True
Η 6

Εκτελέστε το υπο
εικόνων