Word包含一项出色的功能，可让您自动精简键入的内容。称为自动更正的此功能会自动更改您键入的内容，以适应您选择的特定规则。例如，您可以使Word用大写的句子的第一个单词大写或自动将日期的名称大写。

（您可以通过从“工具”菜单中选择“自动更正”来查看“自动更正”设置。）

有时，自动更正会妨碍您键入内容。如果您要输入技术资料，则尤其如此。

但是，没有“主开关”可让您关闭自动更正功能。相反，您必须显示对话框并依次关闭每个复选框。当您以后希望将其重新打开时，必须再次执行相同的过程。

下面的宏可以快速关闭您的自动更正设置。当您第二次运行宏时，“自动更正”设置将重新设置为原始值。该宏被设计为添加到工具栏，然后您可以单击该工具来更改“自动更正”。

Sub ToggleAC()

Dim State As String     Dim ACVal As Integer     Dim VarPass As Variant     Dim VarNum As Integer

VarNum = 0     For Each VarPass In ActiveDocument.Variables         If VarPass.Name = "ACState" Then VarNum = VarPass.Index     Next VarPass

If VarNum <> 0 Then         State = ActiveDocument.Variables.Item(VarNum).Value         ACVal = Val(Mid$(State$, 1, 1))

If ACVal <> 0 Then AutoCorrect.CorrectInitialCaps = True         ACVal = Val(Mid$(State$, 2, 1))

If ACVal <> 0 Then AutoCorrect.CorrectSentenceCaps = True         ACVal = Val(Mid$(State$, 3, 1))

If ACVal <> 0 Then AutoCorrect.CorrectDays = True         ACVal = Val(Mid$(State$, 4, 1))

If ACVal <> 0 Then AutoCorrect.CorrectCapsLock = True         ACVal = Val(Mid$(State$, 5, 1))

If ACVal <> 0 Then AutoCorrect.ReplaceText = True         ACVal = Val(Mid$(State$, 6, 1))

If 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         With AutoCorrect             .CorrectInitialCaps = False             .CorrectSentenceCaps = False             .CorrectDays = False             .CorrectCapsLock = False             .ReplaceText = False         End With         Options.AutoFormatAsYouTypeReplaceQuotes = True     End If End Sub

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（1738）适用于Microsoft Word 97、2000、2002和2003。