La fonction de correction automatique de Word peut être utile lorsque vous écrivez, car elle peut remplacer vos «erreurs de frappe» par ce que vous aviez vraiment prévu en premier lieu. La correction automatique est déjà configurée avec de nombreuses erreurs de frappe courantes, mais pour rendre l’outil vraiment utile, vous devez ajouter vos propres entrées de correction automatique qui reflètent vos habitudes de frappe personnelles.

La méthode normale pour ajouter des entrées de correction automatique consiste à les saisir, une par une, à l’aide de l’onglet Correction automatique de la boîte de dialogue Correction automatique (Outils | Correction automatique). Que faire si vous souhaitez importer plusieurs entrées de correction automatique au lieu de les saisir? Des informations utiles concernant l’exportation et l’importation d’entrées de correction automatique se trouvent ici, sur le http://word.mvps.org [site Word MVP]:

http://wordmvp.com/FAQs/Customization/ExportAutocorrect.htm

Comme vous pouvez le voir sur le site, l’essentiel est qu’il n’existe aucune fonction intrinsèque dans Word qui vous permet d’importer des entrées de correction automatique. Ainsi, il vous reste à utiliser une macro pour faire le travail. Voici une de ces macros, qui importera les entrées et les placera directement dans la liste de correction automatique.

Sub AddToTheAutoCorrectList()

Dim r As Range, r1 As Range     Dim par As Paragraph, bo As Boolean     Dim pars As Paragraphs     Dim ACE As AutoCorrectEntry     Dim ACEs As AutoCorrectEntries     Dim ActD As Document

Set ActD = ActiveDocument     Set pars = ActD.Paragraphs     Set r1 = Selection.Range     Set r = Selection.Range     Set ACEs = Application.AutoCorrect.Entries

On Error Resume Next     For Each par In pars         If par.Range.End = ActD.Content.End Then Exit Sub         r1.Start = par.Range.Start         r1.End = r1.Start         r1.MoveEndUntil vbTab         r.Start = r1.End + 1         r.End = par.Range.End - 1         If Len(r1.Text) > 0 Or Len(r.Text) > 0 Then             If Len(ACEs(r1.Text).Value) > 0 Then                 bo = Repl(ACEs, r, r1)

Else                 bo = True             End If             If bo Then ACEs.Add r1.Text, r.Text         End If     Next End Sub
Private Function Repl(a As AutoCorrectEntries, _   r As Range, r1 As Range) As Boolean     If a(r1.Text).Value <> r.Text Then         Repl = MsgBox("To replace " & UCase(a(r1.Text).Value) & _           " with " & UCase(r.Text) & " click OK", vbYesNo + _           vbQuestion, "REPLACE ENTRY?") = vbYes     End If End Function

Pour utiliser la macro, assurez-vous simplement de placer une entrée par paragraphe dans un document. (Il ne devrait y avoir rien d’autre dans le document.) La partie « Remplacer » de l’entrée doit être séparée du « Avec »

portion par un caractère de tabulation. Si la macro rencontre une entrée de correction automatique proposée qui remplacera une entrée existante, il vous est demandé si vous souhaitez effectuer la modification.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (1732) s’applique à Microsoft Word 97, 2000, 2002 et 2003.