Mise en route à l'aide de Visual Basic pour Applications ( VBA) dans Microsoft Word n'est pas aussi compliqué que vous ne le pensez. VBA est un langage de programmation informatique utilisé dans les applications Microsoft Office pour automatiser des tâches de routine. La meilleure façon de commencer est par l'utilisation de macros. Une macro VBA vous permet de mettre Parole sur le pilote automatique en vous permettant d'exécuter un ensemble de commandes en un seul clic ou une touche. Vous pouvez enregistrer une macro et modifier la macro après qu'il a été créé pour ajouter d'autres commandes au besoin. Instructions
1
Lancez Microsoft Word, cliquez sur l'onglet "Developer " et cliquez sur " Enregistrer une macro . " Tapez " createTable " en dessous " Nom de la macro " et cliquez sur le bouton "OK".
2
Cliquez sur le menu "Insertion " et cliquez sur l'icône " Table" . Faites glisser votre souris sur les cases et cliquez sur l' intitulé « Tableau 3x3 " carré d'insérer un nouveau tableau . Cliquez sur l'icône " Arrêter l'enregistrement " dans le volet Macros pour arrêter l'enregistrement de la macro.
3
Cliquez sur l'onglet "Developer " et cliquez sur "Macros " pour ouvrir la fenêtre de dialogue Macros . Cliquez sur la macro " createTable " créé dans les étapes précédentes , puis cliquez sur "Modifier" pour ouvrir la fenêtre de l'éditeur VB . Le code VBA suivant a été automatiquement généré pour vous de créer la table :
Range ActiveDocument.Tables.Add : = Selection.Range , NumRows : = 3 , numColumns : = _
3 , DefaultTableBehavior : = wdWord9TableBehavior , AutoFitBehavior : . = _
wdAutoFitFixed
Selection.Tables (1) Photos
Si le style <> "Table Grid» Puis
< p> . style = "Table Grille "
End If
. ApplyStyleHeadingRows = True
. ApplyStyleLastRow = False
. ApplyStyleFirstColumn = True
ApplyStyleLastColumn = False
ApplyStyleRowBands = True
ApplyStyleColumnBands = False
End With
Selection.TypeText texte: . . . = " Prénom "
Unité Selection.MoveRight
: = wdCell
Selection.TypeText texte: = " Last Name "
Unité Selection.MoveRight
: = wdCell
sélection . TypeText texte : = " grade"
4
Ajoutez le code VBA suivant pour remplir la table avec des données :
Selection.Tables (1) Photos
. cellule (2 , 1). Range.Text = "John "
. cellulaire (2, 2 ) . Range.Text = " Smith "
. cellule (2 , 3). Plage . Text = " B "
. cellule (3 , 1). Range.Text = "Oscar"
. cellule (3 , 2). Range.Text = " Ramos " < br >
. cellule (3 , 3). Range.Text = " A + "
End With
5
Appuyez sur " F5" pour exécuter la macro . Cela va créer un nouveau tableau avec trois colonnes et trois lignes , et il va remplir les cellules avec des données.
