Les macros dans Word permettent d'automatiser des tâches répétitives dans Word. Elles sont particulièrement utiles pour appliquer des styles, insérer des textes standardisés, des tableaux...
Assurez-vous que les macros sont activées dans les paramètres de sécurité de Word.
Activer l'onglet Développeur
S'il n'est pas visible dans le ruban, allez dans Fichier → Options → Personnaliser le ruban, puis cochez Développeur dans la liste de droite. Vous pouvez également accéder au menu via le menu AFFICHAGE.
Lancer l'enregistreur de macro (option simple)
Dans l'onglet Développeur, cliquez sur Enregistrer une macro. Une fenêtre s'ouvre. Renseignez :
- Nom de la macro — sans espace (ex. : MiseEnForme)
- Affectation — touche clavier ou bouton (facultatif)
- Enregistrer dans — choisissez Document actif ou Normal.dotm (disponible partout)
- Description — notez ce que fait la macro (facultatif)
Effectuer les actions à enregistrer
Cliquez sur OK pour démarrer. Effectuez vos manipulations normalement dans Word — chaque action est capturée automatiquement.
Arrêter l'enregistrement
Cliquez sur Arrêter l'enregistrement dans l'onglet Développeur (ou sur le bouton carré dans la barre de statut en bas).
Conseils pratiques
Enregistrez dans Normal.dotm si vous voulez la macro disponible dans tous vos documents. Activez les macros au démarrage de Word si un message de sécurité apparaît (Fichier → Options → Centre de gestion de la confidentialité → Paramètres des macros).
Exemple simple
Création d'un tableau de 3 linges sur 3 colonnes. Collez-le dans l'éditeur VBA (Développeur → Macros → Modifier).
Sub Macro2()
'
' Macro2 Macro
'
'
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "Grille du tableau" Then
.Style = "Grille du tableau"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
.ApplyStyleRowBands = True
.ApplyStyleColumnBands = False
End With
Selection.Shading.Texture = wdTextureNone
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = -738132173
Selection.Shading.Texture = wdTextureNone
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = -738132173
End Sub