Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte aplikáciu Microsoft Excel 2007 . Kliknite na kartu " Vývojár " a vyberte " Visual Basic " . Zadajte " Sub readWordDocuemnt ( ) " a stlačte tlačidlo " Enter " pre vytvorenie novej sub 
 2 
 Zadajte nasledujúce deklarovať svoje premenné : . 
 
 Dim wordApplication Ako Word.Application 
 
 Dim wordDocument ako Word.Document 
 
 Dim pText As String Dim 
 
 Prange ako Word.Range 
 
 Dim pCount ako dlho 
 
 Dim rXLRow as Long 
 3 
 Zadajte nasledujúci vytvoriť nový zošit programu Excel a otvorte dokument programu Word sa čítať 
 
 Workbooks.Add 
 
 Set wordApplication = CreateObject ( " Word.Application " ) 
 
 Set wordDocument = wordApplication.Documents.Open ( " C : \\ Text na Word.doc " ) 
 4 
 zadajte nasledujúce slučky cez odsekov v dokumente programu Word a pridať ich do nového zošita programu Excel : . 
 
 rXLRow = 2 
 
 S wordDocument 
 
 pCount = 1 Ak chcete Paragraphs.Count 
 
 Nastaviť Prange = rozsah . (Začiatok : .. = odsekov ( pCount ) Range.Start , _ 
 
 Koniec : .. = Odseky ( pCount ) Range.End ) 
 
 pText = pRange.Text 
 
 ActiveSheet.Range ( " a " a rXLRow ) . Vzorec = pText 
 
 rXLRow = rXLRow + 1 
 
 Ďalšie pCount 
 
 . zavrieť 
 
 End With 
 5 
 Zadajte nasledujúce uložiť nový zošit , ukončite program Word a jasné premenné : 
 
 wordApplication.Quit 
 
 Nastaviť wordDocument = Nic : . 
 
 Set wordApplication = Nothing 
 
 ActiveWorkbook.Saved = TRUE 
 6 
 Execute sub