Hvordan bruke VBA å lese et Microsoft Word-dokument

Microsoft Word er et tekstbehandlingsprogram som brukes til å opprette og formatere dokumenter. Visual Basic for Applications (VBA) er vanligvis brukes til å automatisere repetitive oppgaver blant Microsoft Office-programmer som Word, Excel og Access. I noen få trinn kan du skrive en liten sub til å lese et Word-dokument i VBA.

Bruksanvisning

1 Åpne Microsoft Excel 2007. Klikk på "Utvikler" fanen og velg "Visual Basic." Skriv "Sub readWordDocuemnt ()" og trykk "Enter" for å lage en ny sub.

2 Skriv inn følgende å erklære variabler:

Dim wordApplication Som Word.Application

Dim wordDocument Som Word.Document

Dim ptext As String

Dim Prange Som Word.Range

Dim pCount As Long

Dim rXLRow As Long

3 Skriv inn følgende for å opprette en ny Excel-arbeidsbok og åpne Word-dokumentet som skal lyde:

Workbooks.Add

Sett wordApplication = Create ( "Word.Application")

Sett wordDocument = wordApplication.Documents.Open ( "C: \ Tekst i Word.doc")

4 Skriv inn følgende å sløyfe gjennom avsnitt i Word-dokumentet og legge dem til den nye Excel-arbeidsbok:

rXLRow = 2

med wordDocument

For pCount = 1 Til .Paragraphs.Count

Sett Prange = .Range (Start:. = Avsnitt (pCount) .Range.Start, _

Slutt:. = Avsnitt (pCount) .Range.End)

ptext = pRange.Text

ActiveSheet.Range ( "A" og rXLRow) .Formula = ptext

rXLRow = rXLRow + 1

Neste pCount

.Lukke

End With

5 Skriv inn følgende for å lagre den nye arbeidsboken, avslutter Word og klare variabler:

wordApplication.Quit

Sett wordDocument = Nothin:

Sett wordApplication = Nothing

ActiveWorkbook.Saved = True

6 Utfør sub.