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) objOriginalWordRange As Range Dim objReplaceWordRange As Range Dim nRowNumber As Integer Set objTable = ActiveDocument.Tables(1) obj1RowNumber =Col1ForNumber.C s Angi objOriginalWordRange = objOriginalWord.Range objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-2 Sett objReplaceWordRange = objTable.Cell(nRowNumber, 1).Range objReplaceWordRange.MoveEnd Unit:=Wdract.End.Name:C =objOriginalWordRange.Text, Value:=objReplaceWordRange.Text nRowNumber = nRowNumber + 1 Next objOriginalWord Msgbox("Alle autokorrigeringselementer i tabell1 er lagt til.") 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 Every objToriginalWord inWord inWords. = objOriginalWord.Range objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-1 Ved feil Gjenoppta Neste AutoCorrect.Entries.Item(objOriginalWordRange.Text).Slett nRowNumber = nRowNumber + 1 Neste objOriginalWord-tabellen er delegert i tabell Ms er autokorrekt boks(" Ms). 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