Ako sa k nám začal používať VBA v aplikácii Microsoft Word

Začíname pomocou jazyka Visual Basic for Applications ( VBA ) v aplikácii Microsoft Word , nie je tak zložité , ako si môžete myslieť . VBA je programovací jazyk použitý v aplikáciách Microsoft Office pre automatizáciu rutinných úloh . Najrýchlejší spôsob , ako začať, je pomocou makra . Makrá VBA umožňuje , aby aplikácie Word na autopilota tým , že umožňuje vykonať zbierku príkazov na jedno kliknutie alebo jednej klávesy . Môžete nahrávať makrá a upraviť makro potom, čo bola vytvorená pridať viac príkazov , ako je potreba . Pokyny dovolená 1

Spustite program Microsoft Word , kliknite na kartu " Vývojár " a kliknite na " Záznam makra . " Zadajte " CreateTable " pod " makro názvu " a kliknite na tlačidlo " OK " .
2

Kliknite na " Vložiť " menu a kliknite na ikonu " Tabuľka " . Ťahaním myši na námestiach a kliknite na štvorec označený " 3x3 tabuľka " vložiť novú tabuľku . Kliknite na ikonu " Stop Recording " v table Makrá zastaviť záznam makra .
3

Kliknite na kartu " Vývojár " a kliknite na " makrá " spustíte dialógové okno Makrá . Kliknite na " CreateTable " makro vytvorili v predchádzajúcich krokoch , a kliknite na tlačidlo " Upraviť " , na spustenie okná VB Editor . Nasledujúci kód VBA bol automaticky vygenerovaný pre Vás vytvoriť tabuľku :

ActiveDocument.Tables.Add Rozsah : = Selection.Range , numrows : = 3 , NumColumns : = _

3 , DefaultTableBehavior : = wdWord9TableBehavior , AutoFitBehavior : . = _

wdAutoFitFixed

S Selection.Tables ( 1 )

Style < > " Tabuľka Grid " Potom

. Style = " Tabuľka Grid "

End If

. ApplyStyleHeadingRows = TRUE

. ApplyStyleLastRow = False

. ApplyStyleFirstColumn = TRUE
...

ApplyStyleLastColumn = False

ApplyStyleColumnBands = False
ApplyStyleRowBands = TRUE

End With

Selection.TypeText Text : = " Meno "

Selection.MoveRight Jednotka : = wdCell

Selection.TypeText Text : = " Priezvisko "

Selection.MoveRight Jednotka : = wdCell

výber . TypeText Text: = " Trieda "
4

Pridajte nasledujúci kód jazyka VBA k naplneniu tabuľky dátami :

S Selection.Tables ( 1 )

. cell ( 2 , 1 ) . Range.Text = " John " celým

. Cell ( 2 , 2 ) . Range.Text = " Smith " celým

. Cell ( 2 , 3 ) . Rozsah . Text = " B " celým

. Cell ( 3 , 1 ) . Range.Text = " Oskar " celým

. Cell ( 3 , 2 ) . Range.Text = " Ramos "

. Cell ( 3 , 3 ) . Range.Text = " + "

End With
5

Stlačte " F5 " pre spustenie makra . Tým sa vytvorí novú tabuľku s troma stĺpcami a tri riadky , a naplní bunky s dátami .

• Predchádzajúca strana: Ako používať sériový port v jazyku Visual Basic 
• Ďalšia strana: Úvod do jazyka