Microsoft Word är ett ordbehandlingsprogram som används för att skapa och formatera dokument . Visual Basic for Applications ( VBA ) används ofta för att automatisera repetitiva uppgifter mellan Microsoft Office-program som Word , Excel och Access. I några steg du kan skriva ett litet sub att läsa ett Word-dokument i VBA . Instruktioner
1
Öppna Microsoft Excel 2007. Klicka på " Utvecklare " -fliken och välj " Visual Basic . " Typ " Sub readWordDocuemnt ( ) " och tryck på " Enter " för att skapa en ny sub
2
Skriv följande för att deklarera dina 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 Addera 3
Skriv följande för att skapa en ny arbetsbok i Excel och öppna Word-dokument som ska läsas :
Workbooks.Add
wordApplication
Set = CreateObject ( " Word.Application " ) katalog
Ställ Worddocument = wordApplication.Documents.Open ( " C : \\ Text i Word.doc " )
4
Skriv följande för att slingan igenom de punkter i Word- dokument och lägga till dem i nya Excel-arbetsbok : .
rXLRow = 2 Review
Worddocument
för pCount = 1 till Paragraphs.Count
Set Prange = Range ( Start : . = Punkterna ( pCount ) Range.Start , _
End : . . . = styckena ( pCount ) Range.End ) katalog
pText = pRange.Text
ActiveSheet.Range ( " A " & rXLRow ) . Formula = pText
rXLRow = rXLRow + 1
Nästa pCount
. Stäng
End With
5
Skriv följande för att spara den nya arbetsboken , avslutar Word och tydliga variabler :
wordApplication.Quit
Set Worddocument = Nothin :
Set wordApplication = Nothing
ActiveWorkbook.Saved = Sant
6
Utför sub
