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