Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte aplikáciu Microsoft Office 2007 , kliknite na kartu " Vývojár " a vyberte " Visual Basic " . . Kliknite na " Nástroje " , vyberte " Odkazy " a skontrolujte " . Microsoft Word 12.0 Object Library Zvoľte " OK "
2
zadajte nasledujúci príkaz na vytvorenie funkcie :
private function insertTextToWord ( )
Stlačte tlačidlo " Enter "
3
Zadajte nasledujúce vytvárať premenné : .
Dim wrdApp Ako Word.Application
Dim wrdDoc Ako Word.Document
4
Zadajte nasledujúce otvoriť Word a pridať nový dokument :
Set wrdApp = CreateObject ( " Word.Application " )
wrdApp.Visible = TRUE
Set wrdDoc = wrdApp.Documents.Add
5
Zadajte nasledujúce pridať text do dokumentu :
s wrdApp
Selection.TypeText Text : . = " Toto je text z programu Excel vloží do nového dokumentu programu Word . "
Selection.TypeParagraph
End With
Vykonať svoju funkciu .