Nwlapcug.com


Come utilizzare Visual Basic in Word



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 operazioni di routine in Word e altre applicazioni di Microsoft Office. Un buon momento per utilizzare VBA in Word sarebbe se necessario inserire 500 tabelle in un documento e aggiungere i nomi dei campi a tutti loro. Il seguente è un piccolo esempio di come è possibile utilizzare VBA in Word, ma è possibile utilizzare VBA per automatizzare anche altre attività ripetitive.

Istruzioni

1

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

2

Digitare il comando seguente per creare una nuova subroutine:

Private Sub useVBinWord()

Premere "Enter".

3

Digitare il comando seguente per inserire due righe di testo:

Selection. TypeText Text: = "Io sto inserendo il testo in questo documento di Word".

Selection.TypeParagraph

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

Selection.TypeParagraph

4

Digitare il comando seguente per inserire una tabella con quattro colonne e quattro righe:

ActiveDocument.Tables.Add Range, NumRows: = 4, NumColumns: = _

4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

wdAutoFitFixed

With Selection.Tables(1)

If .Style <> "Table Grid" Then

.Style = "Table Grid"

End If

.ApplyStyleHeadingRows = True

.ApplyStyleLastRow = False

.ApplyStyleFirstColumn = True

.ApplyStyleLastColumn = False

.ApplyStyleRowBands = True

.ApplyStyleColumnBands = False

End With5

Digitare il comando seguente per aggiungere nomi di campo alle colonne della tabella:

Selection. TypeText Text: = "Field1"

Selection. MoveRight Unit: = wdCell

Selection. TypeText Text: = "Campo2"

Selection. MoveRight Unit: = wdCell

Selection. TypeText Text: = "Field3"

Selection. MoveRight Unit: = wdCell

Selection. TypeText Text: = "Field4"

Premere "F5" per eseguire la subroutine.