Veksling autokorrektur Innstillinger

March 14  by Eliza

Ord har en flott funksjon som lar deg automatisk effektivisere hva du skriver. Denne funksjonen, kalt autokorrektur, automatisk gjør endringer i hva du skriver for å passe spesifikke regler som du velger. For eksempel kan du få Word til å kapitalisere det første ordet i setninger eller automatisk kapitalisere navnene på dagene. (Du kan se Autokorrektur innstillinger ved å velge Autokorrektur på Verktøy-menyen.)

Det er tider når Autokorrektur kan komme i veien for det du skriver. Dette gjelder særlig hvis du skriver teknisk materiale. Det er ingen "hovedbryter" som lar deg skru av Autokorrektur-funksjonen, men. I stedet må du vise dialogboksen og slå av hver boksen i sin tur. Når du senere vil den på igjen, må du gå gjennom den samme prosessen på nytt.

Følgende makro kan raskt slå av Autokorrektur innstillinger. Når du kjører makroen en gang, blir autokorrektur innstillinger satt tilbake til de opprinnelige verdiene. Makroen er designet for å bli lagt til en verktøylinje, og deretter kan du klikke på verktøyet for å endre autokorrektur.

Sub ToggleAC ()
Dim State As String
Dim ACVal As Integer
Dim VarPass Som Variant
Dim Varnum As Integer

Varnum = 0
For Hver VarPass I ActiveDocument.Variables
Hvis VarPass.Name = "ACState" Da Varnum = VarPass.Index
Neste VarPass

Hvis Varnum <> 0 Then
State = ActiveDocument.Variables.Item (Varnum) .Value
ACVal = Val (Mid $ (State $, 1, 1))
Hvis ACVal <> 0 Then AutoCorrect.CorrectInitialCaps = True
ACVal = Val (Mid $ (State $, 2, 1))
Hvis ACVal <> 0 Then AutoCorrect.CorrectSentenceCaps = True
ACVal = Val (Mid $ (State $, 3, 1))
Hvis ACVal <> 0 Then AutoCorrect.CorrectDays = True
ACVal = Val (Mid $ (State $, 4, 1))
Hvis ACVal <> 0 Then AutoCorrect.CorrectCapsLock = True
ACVal = Val (Mid $ (State $, 5, 1))
Hvis ACVal <> 0 Then AutoCorrect.ReplaceText = sant
ACVal = Val (Mid $ (State $, 6, 1))
Hvis 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
Med Autokorrektur
.CorrectInitialCaps = False
.CorrectSentenceCaps = False
.CorrectDays = False
.CorrectCapsLock = False
.ReplaceText = False
Avslutt med
Options.AutoFormatAsYouTypeReplaceQuotes = True
End If
End Sub

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