Saper utilizzare Microsoft Visual Basic, Applications Edition (VBA) in Microsoft Word può essere molto utile. Word è un programma di elaborazione testi incluso nella suite Microsoft Office. VBA è comunemente usato per automatizzare le attività di routine in altre applicazioni di Microsoft Office Word e. Un buon momento per utilizzare VBA in Word sarebbe se si ha bisogno di inserire 500 le tabelle di un documento e di aggiungere i nomi dei campi a tutti loro. Quanto segue è un piccolo esempio di come è possibile utilizzare VBA in Word, ma è possibile utilizzare VBA per automatizzare le operazioni ripetitive altri troppo.

istruzione

1 Aprire Microsoft Office Word 2007, fare clic sulla scheda "Sviluppatore" e selezionare "Visual Basic". Selezionare il menu "Inserisci" e selezionare "Modulo".

2 Digitare la seguente per creare una nuova subroutine:

Private Sub useVBinWord ()

Premere Invio."

3 Digitare la seguente per inserire due righe di testo:

Selection.TypeText Testo: = "Sto inserendo il testo di questo documento Word."

Selection.TypeParagraph

Selection.TypeText Testo: = "Ho anche intenzione di inserire questa tabella:"

Selection.TypeParagraph

4 Digitare la seguente per inserire una tabella con quattro colonne e quattro righe:

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

4, 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

5 Digitare la seguente per aggiungere i nomi dei campi per le colonne della tabella:

Selection.TypeText Testo: = "Field1"

Selection.MoveRight Unità: = wdCell

Selection.TypeText Testo: = "Campo2"

Selection.MoveRight Unità: = wdCell

Selection.TypeText Testo: = "Field3"

Selection.MoveRight Unità: = wdCell

Selection.TypeText Testo: = "Campo4"

Premere il tasto "F5" per eseguire la subroutine.