Per 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 una serie di comandi con un solo clic o una combinazione di tasti. È possibile registrare una macro e modificare la macro dopo che è stato creato per aggiungere nuovi comandi a seconda delle necessità.

istruzione

1 Avviare Microsoft Word, fare clic sulla scheda "Sviluppatore" e fare clic su "Registra macro". Tipo "CreateTable" sotto "Nome macro" e cliccare sul pulsante "OK".

2 Fare clic sul menu "Inserisci" e fare clic sull'icona "Tabella". Trascina il mouse sopra le piazze e fare clic sul quadrato con l'etichetta "3x3 Table" per inserire una nuova tabella. Fare clic sull'icona "Interrompi registrazione" nel riquadro Macro per interrompere la registrazione della macro.

3 Fare clic sulla scheda "Sviluppatore" e fare clic 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 di VB Editor. Il codice VBA seguente è stato generato automaticamente per voi per creare la tabella:

ActiveDocument.Tables.Add Gamma: = Selection.Range, numrows: = 3, numColonne: = _

3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

wdAutoFitFixed

Con Selection.Tables (1)

Se .Style & lt;> "Table Grid" Allora

.Style = "Table Grid"

Finisci se

.ApplyStyleHeadingRows = True

.ApplyStyleLastRow = False

.ApplyStyleFirstColumn = True

.ApplyStyleLastColumn = False

.ApplyStyleRowBands = True

.ApplyStyleColumnBands = False

End With

Selection.TypeText Testo: = "Nome"

Selection.MoveRight Unità: = wdCell

Selection.TypeText Testo: = "Cognome"

Selection.MoveRight Unità: = wdCell

Selection.TypeText Testo: = "Grade"

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

Con Selection.Tables (1)

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

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

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

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

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

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

End With

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