Come iniziare utilizzando Visual Basic, Applications Edition (VBA ) in Microsoft Word non è così complicato come si potrebbe pensare. VBA è un linguaggio di programmazione utilizzato in applicazioni di Microsoft Office per automatizzare le attività di routine . Il modo più veloce per iniziare è attraverso l'uso di macro. Una macro VBA consente di mettere Word con il pilota automatico , consentendo di eseguire un insieme di comandi con un solo clic o premendo un solo tasto . È possibile registrare una macro e modificare la macro dopo che è stato creato per aggiungere altri comandi come necessario . Istruzioni
1

lancio di Microsoft Word , fare clic sulla scheda "Sviluppatore " e cliccare su " Registra macro ". Tipo " createTable " sotto " Nome macro " e fare clic sul pulsante " OK" .

2 Fare clic sul menu "Inserisci" e fare clic sull'icona "Tabella" . Trascinare il mouse sopra le piazze e fare clic sul quadrato con l'etichetta " Tabella 3x3 " per inserire una nuova tabella . Fare clic sull'icona "Stop Recording " nel pannello Macro di fermare la registrazione della macro .

3 Fare clic sulla scheda "Sviluppatore " e cliccare su "Macro" per avviare la finestra di dialogo Macro. Fare clic sulla macro " createTable ", creato nei passaggi precedenti e fare clic su "Modifica" per avviare la finestra Editor VB . Il seguente codice VBA è stato generato automaticamente per voi per creare la tabella :

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

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

wdAutoFitFixed

Selection.Tables ( 1 ) per

Se Style < > "Grid Table " Allora
< p > . style = " Table Grid"

End If

. ApplyStyleHeadingRows = True

. ApplyStyleLastRow = False

. ApplyStyleFirstColumn = True

ApplyStyleLastColumn = False

ApplyStyleRowBands = True

ApplyStyleColumnBands = False

End With

Selection.TypeText Testo : . . . = " Nome "

Unità Selection.MoveRight : = wdCell

Selection.TypeText Text : = " Cognome "

Unità Selection.MoveRight : = wdCell

Selezione . TypeText Text : = " Grade "
4

Aggiungere il seguente codice VBA per compilare la tabella con i dati :

Selection.Tables ( 1 ) per

. cella ( 2 , 1) . Range.Text = " John"

. cella ( 2 , 2) . Range.Text = "Smith"

. cella ( 2 , 3) . Gamma . Text = "B"

. cella ( 3 , 1) . Range.Text = " Oscar "

. cella ( 3 , 2) . Range.Text = " Ramos " < br >

. cella ( 3 , 3) . Range.Text = " a + "

End With
5

Premere " F5 " per eseguire la macro . Questo creerà una nuova tabella con tre colonne e tre righe , e popolerà le celle con i dati.