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 återkommande uppgifter mellan Microsoft Office-program som Word , Excel och Access. I några få steg kan du skriva en liten sub för att läsa ett Word- dokument i VBA
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 att förklara 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
3
Skriv följande för att skapa en ny Excel- arbetsbok och öppna Word- dokument skall läsas som " .
Workbooks. Add
Set wordApplication=CreateObject ( " Word. Application " )
Set wordDocument=wordApplication . Documents. Open ( " C : \ text i Word. doc " )
4
Skriv följande för att slinga genom de punkter i Word-dokumentet och lägg dem på den nya Excel- arbetsbok . :
rXLRow=2
Med wordDocument
För pCount=1 To . Paragraphs. Count
Set pRange=Range ( Start : =. Punkterna ( pCount ) Range. Start , _
Slut : . =. Punkterna ( pCount ) Range. End ) .
pText=pRange. Text
ActiveSheet. Range ( " A " rXLRow ) . formeln=pText
rXLRow=rXLRow + 1
Nästa pCount
. Stäng
End With
5
Skriv följande för att spara den nya arbetsboken , avsluta Word och tydliga variabler : .
wordApplication. Quit
Set wordDocument=Nothin :
Set wordApplication=Inget
ActiveWorkbook. Saved=Sant
6 .
Kör sub .
Previous:nothing Next:Microsoft Visual Database Tools