Wie Sie VBA verwenden, um ein Microsoft Word-Dokument lesen
Microsoft Word ist ein Textverarbeitungsprogramm-Programm zum Erstellen und Formatieren von Dokumenten verwendet. 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 um ein Word-Dokument in VBA lesen schreiben.
Anweisungen
1 Öffnen Sie Microsoft Excel 2007. Klicken Sie auf die Registerkarte "Entwicklertools" und wählen Sie "Visual Basic." Geben Sie "Sub readWordDocuemnt()", und drücken Sie "Enter" eine neue Sub erstellen.
2 Geben Sie Folgendes ein, um Variablen deklarieren:
Dim WordApplication als "Word.Application"
Worddokument As Word.Document Dim
PText As String Dim
Dim pRange als Word.Range
Dim pCount As Long
Dim rXLRow As Long
3 Geben Sie Folgendes ein, um eine neue Excel-Arbeitsmappe erstellen und öffnen Sie das Word-Dokument zu lesen:
Workbooks.Add
Set WordApplication = CreateObject("Word.Application")
Worddokument festlegen = wordApplication.Documents.Open ("C:\Text in Word.doc")
4 Geben Sie Folgendes ein, um eine Schleife durch die Absätze im Word-Dokument und fügen sie Sie der neuen Excel-Arbeitsmappe:
rXLRow = 2
Mit Worddokument
Für pCount = 1 To. Paragraphs.Count
Legen Sie pRange =. Bereich (Start: =. Paragraphs(pCount). Range.Start _
Ende: =. Paragraphs(pCount). Range.End)
pText = pRange.Text
ActiveSheet.Range ("A" & rXLRow). Formel = pText
rXLRow = rXLRow + 1
Nächste pCount
. Schließen
Enden mit
5 Geben Sie Folgendes ein, um die neue Arbeitsmappe speichern, Word beenden und deaktivieren Sie Variablen:
wordApplication.Quit
Worddokument festgelegt = nix:
Set WordApplication = Nothing
ActiveWorkbook.Saved = True
6 Führen Sie die Sub.