Word comprend une fonctionnalité intéressante qui vous permet de rationaliser automatiquement ce que vous tapez. Cette fonctionnalité, appelée Correction automatique, modifie automatiquement ce que vous tapez pour s’adapter aux règles spécifiques que vous sélectionnez. Par exemple, vous pouvez amener Word à mettre en majuscule le premier mot de vos phrases ou à mettre automatiquement en majuscule les noms des jours.

(Vous pouvez afficher vos paramètres de correction automatique en sélectionnant Correction automatique dans le menu Outils.)

Il y a des moments où la correction automatique peut nuire à ce que vous tapez. Cela est particulièrement vrai si vous tapez du matériel technique.

Cependant, il n’y a pas de « commutateur principal » qui vous permet de désactiver la fonction de correction automatique. Au lieu de cela, vous devez afficher la boîte de dialogue et désactiver chaque case à cocher, à tour de rôle. Lorsque vous souhaitez le réactiver ultérieurement, vous devez recommencer le même processus.

La macro suivante peut rapidement désactiver vos paramètres de correction automatique. Lorsque vous exécutez la macro une deuxième fois, les paramètres de correction automatique sont rétablis à leurs valeurs d’origine. La macro est conçue pour être ajoutée à une barre d’outils, puis vous pouvez cliquer sur l’outil pour modifier la correction automatique.

Sub ToggleAC()

Dim State As String     Dim ACVal As Integer     Dim VarPass As Variant     Dim VarNum As Integer

VarNum = 0     For Each VarPass In ActiveDocument.Variables         If VarPass.Name = "ACState" Then VarNum = VarPass.Index     Next VarPass

If VarNum <> 0 Then         State = ActiveDocument.Variables.Item(VarNum).Value         ACVal = Val(Mid$(State$, 1, 1))

If ACVal <> 0 Then AutoCorrect.CorrectInitialCaps = True         ACVal = Val(Mid$(State$, 2, 1))

If ACVal <> 0 Then AutoCorrect.CorrectSentenceCaps = True         ACVal = Val(Mid$(State$, 3, 1))

If ACVal <> 0 Then AutoCorrect.CorrectDays = True         ACVal = Val(Mid$(State$, 4, 1))

If ACVal <> 0 Then AutoCorrect.CorrectCapsLock = True         ACVal = Val(Mid$(State$, 5, 1))

If ACVal <> 0 Then AutoCorrect.ReplaceText = True         ACVal = Val(Mid$(State$, 6, 1))

If ACVal <> 0 Then Options.AutoFormatAsYouTypeReplaceQuotes = True         ActiveDocument.Variables.Item(VarNum).Delete     Else         State = ""

State = State & Mid(Str(Abs(AutoCorrect.CorrectInitialCaps)), 2)

State = State & Mid(Str(Abs(AutoCorrect.CorrectSentenceCaps)), 2)

State = State & Mid(Str(Abs(AutoCorrect.CorrectDays)), 2)

State = State & Mid(Str(Abs(AutoCorrect.CorrectCapsLock)), 2)

State = State & Mid(Str(Abs(AutoCorrect.ReplaceText)), 2)

State = State & Mid(Str(Abs(Options.AutoFormatAsYouTypeReplaceQuotes)), 2)

ActiveDocument.Variables.Add "ACState", State         With AutoCorrect             .CorrectInitialCaps = False             .CorrectSentenceCaps = False             .CorrectDays = False             .CorrectCapsLock = False             .ReplaceText = False         End With         Options.AutoFormatAsYouTypeReplaceQuotes = True     End If End Sub

_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 (1738) s’applique à Microsoft Word 97, 2000, 2002 et 2003.