Sapere come utilizzare Microsoft Visual Basic, Applications Edition (VBA ) in Microsoft Word può essere molto utile . Word è un programma di elaborazione testi inclusi nella suite Microsoft Office . VBA è comunemente usato per automatizzare le attività di routine in Word e altre applicazioni di Microsoft Office . Un buon momento per utilizzare VBA in Word sarebbe se avevi bisogno di inserire 500 tabelle in un documento e di 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 altre attività ripetitive troppo . Istruzioni
1
Aprire Microsoft Office Word 2007 , fare clic sulla scheda "Sviluppatore " e selezionare " Visual Basic ". Selezionare il menu "Inserisci" e selezionare
2
Digitare quanto segue per creare un nuovo sottoprogramma "Modulo ". :
Private Sub useVBinWord ( ) per
Press " inserire "
3
Digitare il seguente per inserire due righe di testo :
Selection.TypeText text : =" . sto inserendo il testo di questo documento di Word . "
Selection.TypeParagraph
Selection.TypeText Text : =" ho anche intenzione di inserire questa tabella : "
Selection.TypeParagraph
4
Digitare quanto segue per inserire una tabella con quattro colonne e quattro righe :
ActiveDocument.Tables.Add Range: = Selection.Range , NumRows : = 4 , NumColumns : = _
4 , DefaultTableBehavior : = wdWord9TableBehavior , AutoFitBehavior : . = _
wdAutoFitFixed
Selection.Tables ( 1 ) per
Se Style < > "Grid Table" Allora
. style = " Table Grid"
End If
. ApplyStyleHeadingRows = True
. ApplyStyleLastRow = False
. ApplyStyleFirstColumn = True
. ApplyStyleLastColumn = False
. ApplyStyleRowBands = True
. ApplyStyleColumnBands = False
End With
5
Tipo il a seguito di aggiungere i nomi dei campi per le colonne della tabella :
Selection.TypeText Text : = " Campo1 "
Unità Selection.MoveRight : = wdCell
Selection.TypeText Text : = " Campo2 "
Unità Selection.MoveRight : = wdCell
Selection.TypeText Text : = " Field3 "
Unità Selection.MoveRight : = wdCell
Selection.TypeText Testo : . = " Campo4 "
Premere " F5 " per eseguire la subroutine
