Comment utiliser les macros dans Word : Automatisez vos tâches répétitives

Fatigué des tâches répétitives dans Microsoft Word ? Découvrez les macros, un outil puissant d'automatisation basé sur VBA, accessible même sans compétences en programmation.

En un clic, enregistrez vos actions pour les reproduire à volonté. Personnalisez-les pour plus d'efficacité. Ce guide pratique vous montre comment automatiser la fonction Rechercher et remplacer.

Enregistrer la macro

Exemple concret : vous dirigez la Société pour la préservation des appareils dentaires anciens. Le conseil change le nom en Ligue de préservation des antiquités dentaires. Mettez à jour vos documents facilement.

Ouvrez un document vierge ou existant. Activez l'onglet Développeur si nécessaire : Fichier > Options > Personnaliser le ruban. Cochez Développeur sous Onglets principaux, puis OK.

Créez la macro :

1. Cliquez Développeur > Enregistrer une macro.
2. Nommez-la "ChangeSocietyName" (sans espaces ni caractères spéciaux).
3. Optionnel : assignez un bouton ou raccourci, ajoutez une description.
4. Cliquez OK. Appuyez sur Ctrl + H pour ouvrir Rechercher et remplacer.
5. Saisissez "Société pour la préservation des appareils dentaires anciens" dans Rechercher et "Ligue de préservation des antiquités dentaires" dans Remplacer.
6. Cliquez Remplacer tout.
7. Arrêtez l'enregistrement : Développeur > Arrêter l'enregistrement.

Testez : ouvrez un document avec l'ancien nom, Développeur > Macros, exécutez ChangeSocietyName.

Astuce : Pour une action non enregistrable (copier-coller), suspendez (Suspendre l'enregistrement), effectuez-la, puis reprenez.

Macros utilisables aussi dans Excel ou OneNote pour booster la productivité.

Explorer le code

Développeur > Macros, sélectionnez la macro, cliquez Modifier. L'éditeur VBA s'ouvre.

Le code généré :

Sub ChangeSocietyName()
' Macro pour renommer la société
    Selection.Find.ClearFormatting
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "Société pour la préservation des appareils dentaires anciens"
        .Replacement.Text = "Ligue de préservation des antiquités dentaires"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Explication : Sub définit la procédure. Commentaires avec '. Le bloc With configure la recherche ; Execute Replace:=wdReplaceAll remplace partout.

Modifier la macro

Pas besoin de coder pour utiliser, mais édition possible pour perfectionner. Exemple : effacez les champs Rechercher/Remplacer après usage.

Dupliquez le code (Ctrl+C/V après End Sub), renommez en ClearFindReplace. Videz .Text et .Replacement.Text :

Sub ClearFindReplace()
' Efface les champs Rechercher/Remplacer
    Selection.Find.ClearFormatting
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Dans ChangeSocietyName, ajoutez ClearFindReplace avant End Sub. Ainsi, elle s'exécute automatiquement après.

    Selection.Find.Execute Replace:=wdReplaceAll
    ClearFindReplace
End Sub

Aller plus loin avec VBA

Les macros automatisent tout. Éditez, combinez-les dans VBA pour variables, boucles, conditions. Appliquez à Excel/Access. Maîtrisez les bases pour une productivité maximale.