Importere autokorrektur

Word Autokorrektur-funksjonen kan være nyttig når du skriver, så det kan erstatte "mistypes" med hva du egentlig ment i første omgang. Autokorrektur kommer allerede konfigurert med mange av de vanlige skrivefeil, men for å gjøre verktøyet virkelig nyttig du trenger å legge til dine egne autokorrektur som gjenspeiler dine personlige skrivevaner.

Den normale måten å legge autokorrektur er å legge dem inn i, en av gangen, ved hjelp av autokorrektur fanen i Autokorrektur dialogboksen (Verktøy | Autokorrektur). Hva hvis du vil importere ganske mange autokorrektur, snarere enn å skrive dem inn? Nyttig informasjon om eksport og import av autokorrektur ligger her, på Word MVP nettstedet:

http://word.mvps.org/FAQs/Customization/ExportAutocorrect.htm

Som du kan fortelle fra nettstedet, er bunnlinjen at det ikke er iboende funksjon i Word som lar deg importere autokorrektur. Dermed har du igjen til å bruke en makro til å gjøre jobben. Følgende er en slik makro, som vil importere oppføringer og plassere dem direkte i Autokorrektur-listen.

Sub AddToTheAutoCorrectList ()
Dim r Som Range, r1 Som Range
Dim pari Som ledd, Bø AS boolsk
Dim Pars som eget avsnitt
Dim ACE Som AutoCorrectEntry
Dim oppføringer Som AutoCorrectEntries
Dim ActD Som Document

Satt ActD = ActiveDocument
Set pars = ActD.Paragraphs
Satt r1 = Selection.Range
Sette r = Selection.Range
Set oppføringer = Application.AutoCorrect.Entries

On Error Resume Next
For hvert nivå I pars
Hvis 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
Hvis Len (r1.Text)> 0 Eller Len (r.Text)> 0 Then
If Len (Ess (r1.Text) .Value)> 0 Then
Bo = Repl (oppføringer, r, r1)
Else
bo = True
End If
Hvis bo Deretter ACEs.Add r1.Text, r.Text
End If
Neste
End Sub

Private Function Repl (en som AutoCorrectEntries, _
r Som Range, r1 Som Range) Som boolsk
Hvis en (r1.Text) .Value <> r.Text Deretter
Repl = MsgBox ("Å erstatte" & UCase (en (r1.Text) .Value) & _
"Med" & UCase (r.Text) og "klikk OK", vbYesNo + _
vbQuestion, "BYTT ENTRY?") = vbYes
End If
End Function

Å bruke makroen, bare sørg for at du plasserer én oppføring per avsnitt i et dokument. (Det bør være noe annet sted i dokumentet.) Den "Erstatt" delen av oppføringen bør skilles fra "Med" del av et tabulatortegn. Hvis makro møter et forslag til Autokorrektur oppføring som vil overskrive en eksisterende oppføring, blir du spurt om du ønsker å gjøre endringen.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (1732) gjelder for Microsoft Word 97, 2000, 2002, og 2003.