Slik legger du til eller sletter flere autokorrekturoppføringer i Word

I denne artikkelen nedenfor vil vi gjerne introdusere deg måten å legge til eller slette flere autokorrigeringsoppføringer i Word.

I Word er det en innebygd funksjon som heter autokorrektur. Mange brukere er allerede kjent med det. Faktisk bruker mange av oss det til å korrigere ord som lett staves feil. Selv om du kan importere så mange elementer du trenger, må du gjøre det én etter én. Generelt vil vi måtte tåle det. Men når det gjelder makro, vil du kunne spare mye tid ved å lage en liste over autokorrigeringsoppføringer og importere dem én gang for alle med et klikk.

Følgende er detaljer som viser deg hvordan du oppnår det:

Batch Legg til flere autokorrekturoppføringer

1. Først og fremstost, åpne et tomt dokument i Word og sett inn en tabell med 2 kolonner og flere rader.
2. I tabellen skriver du inn alle feilstavede ord i den første kolonnen.
3. Og skriv inn alle riktige ord i den andre kolonnen.
4. Etter det, trykk "Alt + F11" for å starte VBA-editoren i Word.
5. Klikk deretter "Normal" og "Sett inn"-fanen.
6. Og velg "Modul" på rullegardinmenyen.
7. Dobbeltklikk deretter på as for å åpne den nye modulen til høyre.
8. Lim inn følgende koder der:

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. Sist men ikke minst, klikk "Kjør" eller trykk "F5" for å kjøre makroen.

Merknader:

1. Når du kjører makroen, vises en resultatboks som indikerer at alle elementene i tabellen er importert.
2. Sørg for at det ikke er noen etterfølgende plass etter elementet i tabellcellen. Ellers vil makroen mislykkes.

Batch-slett flere autokorrekturoppføringer

Her er det motsatte behovet for å batchslette flere autokorrigeringsoppføringer på sekunder. Heldigvis, med en makro, bør dette være enkelt.

1. Først oppretter du et nytt tomt dokument i Word på samme måte.
2. Sett deretter inn en tabell i 1 kolonne med flere rader.
3. Skriv inn alle feilstavede ord du må fjerne i tabellen.
4. Installer og kjør deretter en makro ved å følge de nøyaktige trinnene ovenfor.
5. Men bytt ut makroen med denne:

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. På samme måte er det resultatboksen som nedenfor:

Våpen for å bekjempe dokumentkorrupsjon

Tenk deg at du har jobbet med en rapport for hele dagen. Og plutselig slutter Word å svare. Så sekunder senere kan du ikke finne rapporten din på datamaskinen. Det ser ut til at de bare forsvant! Så desperat du må føle deg! Likevel, i stedet for å krysse hjertet og be om lykke til, trenger du et ekte våpen gjenopprette docx.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert ødelagt xls og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med