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

Åpne Microsoft Excel 2007 . Klikk på " Developer "-fanen og velg " Visual Basic. " Type " 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 Som Long

Dim rXLRow som Long
3

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

Workbooks.Add

Set wordApplication = CreateObject ( " 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
p Med wordDocument

for pCount = 1 To Paragraphs.Count

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

End : . . . = punkt ( pCount ) Range.End )

pText = pRange.Text

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

rXLRow = rXLRow + 1

Neste pCount

. Lukk

End With
5

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

wordApplication.Quit

Set wordDocument = Nothin : en

Set wordApplication = Ingenting

ActiveWorkbook.Saved = sant
6

Utfør sub