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
. 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 "
. 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.
Programmazione © www.354353.com