Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte program Microsoft Office Word 2007 , kliknite na kartu " Vývojár " a vyberte " Visual Basic " . " . Modul " Zvoľte menu " Vložiť " a vyberte
2
Zadajte nasledujúci vytvoriť nový podprogram :
Private Sub useVBinWord ( )
Stlačte " . Zadajte "
3
Zadajte nasledujúce vložiť dva riadky textu :
Selection.TypeText Text : = " Ja vloženie tohto textu tohto dokumentu . "
Selection.TypeParagraph
Selection.TypeText Text : = " Som tiež chystá vložiť túto tabuľku : "
Selection.TypeParagraph
4
Zadajte nasledujúce vložiť tabuľku so štyrmi stĺpci a štyroch radoch :
ActiveDocument.Tables.Add Rozsah : = Selection.Range , numrows : = 4 , NumColumns : = _
4 , DefaultTableBehavior : = wdWord9TableBehavior , AutoFitBehavior : . = _
wdAutoFitFixed
S Selection.Tables ( 1 )
Style < > " Tabuľka Grid " Tak
. Style = " Tabuľka Grid "
End If
. ApplyStyleHeadingRows = TRUE
. ApplyStyleLastRow = False
. ApplyStyleFirstColumn = TRUE
. ApplyStyleLastColumn = False
. ApplyStyleRowBands = TRUE
. ApplyStyleColumnBands = False
End With
5
Sem nasledujúce pridať názvy polí do stĺpcov tabuľky :
Selection.TypeText Text : = " pole1 "
Selection.MoveRight Jednotka : = wdCell
Selection.TypeText Text : = " Field2 "
Selection.MoveRight Jednotka : = wdCell
Selection.TypeText Text : = " field3 "
Selection.MoveRight Jednotka : = wdCell
Selection.TypeText Text : . = " Field4 "
Stlačte " F5 " spustiť podprogram
Copyright © počítačové znalosti Všetky práva vyhradené