Open Microsoft Excel 2007 1 . Klik op het tabblad " Developer " en selecteer " Visual Basic . " Type " Sub readWordDocuemnt ( ) " en druk op " Enter " om een nieuwe sub maken

Type 2 de volgende om uw variabelen te verklaren : .

Dim wordApplication
Zoals Word.Application < br >

Dim wordDocument Zoals Word.Document

Dim ptext
als Koord

Dim Prange
Zoals Word.Range

Dim pCount
zoals lang

Dim rXLRow
As Long

Type 3 van de volgende opties om een ​​nieuwe Excel-werkmap maken en het Word-document openen om te lezen :

Workbooks.Add

Set wordApplication
= CreateObject ( " Word.Application " ) op Twitter

Stel wordDocument = wordApplication.Documents.Open ( " C : \\ tekst in Word.doc " ) op Twitter

Type 4 het volgende aan lus door de leden in het Word-document en voeg ze toe aan de nieuwe Excel-werkmap : .

rXLRow
= 2

met wordDocument

pCount = 1 To Paragraphs.Count < br .

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

End of : . . . = leden ( pCount ) Range.End )

ptext
= pRange.Text

ActiveSheet.Range
( " A " & rXLRow ) . Formule = ptext

rXLRow
= rXLRow + 1

Volgende pCount

. Sluiten

Einde
met
5

Typ het volgende om de nieuwe werkmap op te slaan , sluit u Word en duidelijke variabelen :

wordApplication.Quit

Set
wordDocument = Nothin :

Set wordApplication
= Nothing

ActiveWorkbook.Saved = True
6

Voer de sub
< br . >