Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte aplikáciu Microsoft Excel 2007 a potom kliknite na kartu " Vývojár " a potom vyberte " Visual Basic " .
Kliknite na menu " Nástroje " a vyberte " Referencie ... " . Zaškrtnite políčko vedľa " Microsoft Word knižnica 12.0 Object " a vyberte možnosť " OK " .
2
Zadajte nasledujúci vytvoriť nový podprogram :
Sub WordReference ( ) klipart
Stlačte tlačidlo " Enter " .
3
zadajte nasledujúci odkaz na objekt programu Word :
Dim wordDoc Ako Word.Document
Set wordApplication = CreateObject ( " Word.Application " )
Set wordDoc = wordApplication.Documents.Open ( " C : \\ WordDoc.doc " )
môžete editovať " C : \\ WordDoc.doc " a zadajte cestu k dokumentu programu Word , ktorý chcete odkazovať
4
Zadajte nasledujúce volať " readword " podprogram : .
Call readword ( wordDoc )
5
Zadajte nasledujúci vytvoriť " readword " podprogram a zobrazí sa okno so správou s textom čítania z dokumentu programu Word :
Private Sub readword ( wrdDoc As Object )
Dim Prange Ako Word.Range
Dim PCnt As Long
S wrdDoc
PCnt = 1 Paragraphs.Count Pro .
Set Prange = . rozsah ( start : . = Odseky ( PCnt ) Range.Start , _
Koniec : ... = Odseky ( PCnt ) Range.End )
MsgBox ( pRange.Text )
Ďalšie PCnt
. Close
End With
End Sub
6
Stlačte " F5 " pre spustenie " WordReference " podprogram .
Copyright © počítačové znalosti Všetky práva vyhradené