Microsoft Word ist ein Textverarbeitungsprogramm zum Erstellen und Formatieren von Dokumenten . Visual Basic für Applikationen ( VBA) wird häufig verwendet, um sich wiederholende Aufgaben unter Microsoft Office-Anwendungen wie Word, Excel und Access zu automatisieren. In wenigen Schritten können Sie eine kleine Sub-Kabel an ein Word-Dokument in VBA lesen. Anleitung
1

Öffnen Sie Microsoft Excel 2007. Klicken Sie auf die Registerkarte "Entwicklertools" und wählen Sie " Visual Basic. " Typ "Sub readWordDocuemnt ()" und "Enter" drücken , um eine neue zu erstellen sub
2

Geben Sie den folgenden Ihre Variablen deklarieren: .

Dim wordApplication Wie Word.Application

Dim wordDocument Wie Word.Document

Dim pText As String Dim

Prange Wie Word.Range

Dim PCOUNT As Long Dim

rXLRow As Long
3

Geben Sie den folgenden eine neue Excel- Arbeitsmappe zu erstellen , und öffnen Sie das Word-Dokument zu lesen :

Workbooks.Add

Set wordApplication = CreateObject (" Word.Application " )

Set wordDocument = wordApplication.Documents.Open ( "C: \\ Text in Word.doc " )
4

Geben Sie den folgenden in einer Schleife durch die Absätze in das Word-Dokument , und fügen Sie sie an die neue Excel-Arbeitsmappe : .

rXLRow = 2

wordDocument

PCOUNT = 1 To Paragraphs.Count

Set Prange = Range ( Start: . = Absätze ( PCOUNT ) Range.Start , _

Ende: . . . = Absätze ( PCOUNT ) Range.End )

pText = pRange.Text

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

rXLRow = rXLRow + 1

Weiter PCOUNT

. Close to

End With
5

Geben Sie den folgenden , um die neue Arbeitsmappe speichern, Word beenden und klare Variablen :

wordApplication.Quit

Set wordDocument = Nothin :

Set wordApplication = Nothing

ActiveWorkbook.Saved = True
6

Führen Sie die sub