Comment ajouter ou supprimer par lots plusieurs entrées de correction automatique dans votre mot

Dans cet article ci-dessous, nous aimerions vous présenter la façon d'ajouter ou de supprimer par lots plusieurs entrées de correction automatique dans votre Word.

Dans Word, il existe une fonctionnalité intégrée appelée correction automatique. De nombreux utilisateurs le connaissent déjà. En fait, beaucoup d'entre nous l'utilisent pour corriger des mots facilement mal orthographiés. Bien que vous puissiez importer autant d'éléments que vous le souhaitez, vous devez le faire un par un. En règle générale, nous devrons nous en accommoder. Mais, en ce qui concerne la macro, vous pourrez gagner beaucoup de temps en créant une liste d'entrées de correction automatique et en les important une fois pour toutes en un clic.

Voici les détails vous montrant comment l'accomplir :

Ajouter plusieurs entrées de correction automatique par lots

1. Premier et premierost, ouvrez un document vierge dans Word et insérez un tableau de 2 colonnes et plusieurs lignes.
2. Dans le tableau, saisissez tous les mots mal orthographiés dans la première colonne.
3. Et entrez tous les mots corrects dans la deuxième colonne.
4. Après cela, appuyez sur "Alt + F11" pour appeler l'éditeur VBA dans Word.
5. Cliquez ensuite sur l'onglet "Normal" et "Insérer".
6. Et choisissez "Module" dans le menu déroulant.
7. Double-cliquez ensuite sur as pour ouvrir le nouveau module sur la droite.
8. Collez-y maintenant les codes suivants :

Sub BatchAddAutoCorrectEntries()
  Dim objTable As Table
  Dim objOriginalWord As Cell
  Dim objOriginalWordRange As Range
  Dim objReplaceWordRange As Range
  Dim nRowNumber As Integer
 
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  For Each objOriginalWord In objTable.Columns(1).Cells 
    Set objOriginalWordRange = objOriginalWord.Range
    objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
    Set objReplaceWordRange = objTable.Cell(nRowNumber, 2).Range
    objReplaceWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
 
    AutoCorrect.Entries.Add Name:=objOriginalWordRange.Text, Value:=objReplaceWordRange.Text
 
    nRowNumber = nRowNumber + 1
  Next objOriginalWord
 
  Msgbox("All autocorrect items in the table1 are added.")
End Sub

9. Enfin, cliquez sur "Exécuter" ou appuyez sur "F5" pour exécuter la macro.

Remarques :

1. L'exécution de la macro affichera une zone de résultat indiquant que tous les éléments de la table sont importés.
2. Assurez-vous qu'il n'y a pas d'espace à la fin de l'élément dans la cellule du tableau. Sinon, la macro échouera.

Supprimer par lots plusieurs entrées de correction automatique

Voici le besoin opposé de supprimer par lots plusieurs entrées de correction automatique en quelques secondes. Heureusement, avec une macro, cela devrait être facile.

1. Tout d'abord, créez un nouveau document vierge dans Word de la même manière.
2. Insérez ensuite un tableau dans 1 colonne de plusieurs lignes.
3. Entrez tous les mots mal orthographiés que vous devez supprimer dans le tableau.
4. Ensuite, installez et exécutez une macro en suivant exactement les étapes ci-dessus.
5. Mais remplacez la macro par celle-ci :

Sub BatchDeleteAutoCorrectEntries()
  Dim objTable As Table
  Dim objOriginalWord As Cell
  Dim objOriginalWordRange As Range
  Dim nRowNumber As Integer
 
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  For Each objOriginalWord In objTable.Columns(1).Cells 
    Set objOriginalWordRange = objOriginalWord.Range
    objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
 
    On Error Resume Next 
    AutoCorrect.Entries.Item(objOriginalWordRange.Text).Delete
 
    nRowNumber = nRowNumber + 1
  Next objOriginalWord
 
  Msgbox("All autocorrect items in the table1 are deleted.")
End Sub

6. De même, il y a la boîte de résultat ci-dessous :

Arme pour lutter contre la corruption de documents

Imaginez que vous avez travaillé sur un rapport toute la journée. Et tout d'un coup, Word cesse de répondre. Puis quelques secondes plus tard, vous pouvez trouver votre rapport nulle part sur l'ordinateur. Il semble qu'ils aient tout simplement disparu ! Comme tu dois te sentir désespérée ! Pourtant, au lieu de croiser le cœur et de prier pour la bonne chance, vous avez besoin d'une véritable arme pour récupérer docx.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris xl corrompu et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com