Savoir comment utiliser Microsoft Visual Basic pour Applications ( VBA) dans Microsoft Word peut être très utile . Word est un programme de traitement de texte inclus dans la suite Microsoft Office . VBA est couramment utilisé pour automatiser des tâches de routine dans Word et d'autres applications Microsoft Office. Un bon moment pour utiliser VBA dans Word serait si vous avez besoin d'insérer 500 tables dans un document et ajouter des noms sur le terrain à tous. Voici un petit exemple de comment vous pouvez utiliser VBA dans Word, mais vous pouvez utiliser VBA pour automatiser d'autres tâches répétitives trop . Instructions
1
Ouvrir Microsoft Office Word 2007, cliquez sur l'onglet « Développeur » et sélectionnez « Visual Basic ». Sélectionnez le menu "Insertion " et sélectionnez
2
Tapez la suivante pour créer un nouveau sous-programme "Module ". :
Privé useVBinWord Sub ( )
de la presse " Entrez "
3
Tapez le suivant pour insérer deux lignes de texte :
Selection.TypeText texte : =" . je suis insérant ce texte à ce document Word. "
Selection.TypeParagraph
Selection.TypeText texte: =" Je vais aussi insérer ce tableau: «
Selection.TypeParagraph
4
Tapez la commande suivante pour insérer un tableau avec quatre colonnes et quatre rangées :
Range ActiveDocument.Tables.Add : = Selection.Range , NumRows : = 4, numColumns : = _
4, DefaultTableBehavior : = wdWord9TableBehavior , AutoFitBehavior : . = _
wdAutoFitFixed
Selection.Tables (1) Photos
Si le style <> "Table Grid» Puis
. style = "Table Grille "
End If
. ApplyStyleHeadingRows = True
. ApplyStyleLastRow = False
. ApplyStyleFirstColumn = True Photos
. ApplyStyleLastColumn = False
. ApplyStyleRowBands = True
. ApplyStyleColumnBands = False
End With
5
Tapez le la suite d'ajouter des noms sur le terrain pour les colonnes de la table :
Selection.TypeText texte : =
Unité de Selection.MoveRight
" Champ1 ": = wdCell
Selection.TypeText texte: = " Field2 "
Unité Selection.MoveRight : = wdCell
Selection.TypeText texte: =
Unité de Selection.MoveRight
" Field3 ": = wdCell
Selection.TypeText texte: . = " Field4 "
Appuyez sur " F5 " pour exécuter votre routine
