Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako používať Visual Basic v programe Word

Vedieť , ako používať Microsoft Visual Basic for Applications ( VBA ) v programe Microsoft Word môže byť celkom užitočné . Word je program pre spracovanie textu zahrnuté do balíka Microsoft Office . VBA sa bežne používa na automatizáciu rutinných úloh v programe Word a ďalších aplikáciách balíka Microsoft Office . Dobrý čas na použitie VBA v programe Word by bolo , keby ste potrebovali vložiť 500 tabuliek v dokumente a pridať názvy polí pre všetky z nich . Nasleduje malý príklad toho , ako možno použiť VBA v programe Word , ale môžete použiť VBA automatizovať ďalšie opakujúce sa úlohy príliš . Návod dovolená 1

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

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené