Word的自动更正功能在您编写时可能会有所帮助，因为它可以将您的“错误类型”替换为您最初打算的内容。自动更正已经配置了许多常见的键入错误，但是要使该工具真正有用，您需要添加自己的自动更正条目以反映您的个人键入习惯。

添加自动更正条目的通常方法是使用“自动更正”对话框（“工具” |“自动更正”）的“自动更正”选项卡一次一次输入它们。如果要导入很多自动更正条目而不是键入它们怎么办？有关导出和导入自动更正条目的有用信息，位于http://word.mvps.org [Word MVP网站]：

http://wordmvp.com/FAQs/Customization/ExportAutocorrect.htm

正如您可以从站点上看到的那样，最重要的是，Word中没有任何内在函数可以导入自动更正条目。因此，您只能使用宏来完成工作。下面是一个这样的宏，它将导入条目并将其直接放置在“自动更正”列表中。

Sub AddToTheAutoCorrectList()

Dim r As Range, r1 As Range     Dim par As Paragraph, bo As Boolean     Dim pars As Paragraphs     Dim ACE As AutoCorrectEntry     Dim ACEs As AutoCorrectEntries     Dim ActD As Document

Set ActD = ActiveDocument     Set pars = ActD.Paragraphs     Set r1 = Selection.Range     Set r = Selection.Range     Set ACEs = Application.AutoCorrect.Entries

On Error Resume Next     For Each par In pars         If 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         If Len(r1.Text) > 0 Or Len(r.Text) > 0 Then             If Len(ACEs(r1.Text).Value) > 0 Then                 bo = Repl(ACEs, r, r1)

Else                 bo = True             End If             If bo Then ACEs.Add r1.Text, r.Text         End If     Next End Sub
Private Function Repl(a As AutoCorrectEntries, _   r As Range, r1 As Range) As Boolean     If a(r1.Text).Value <> r.Text Then         Repl = MsgBox("To replace " & UCase(a(r1.Text).Value) & _           " with " & UCase(r.Text) & " click OK", vbYesNo + _           vbQuestion, "REPLACE ENTRY?") = vbYes     End If End Function

要使用该宏，只需确保在文档中每个段落放置一个条目即可。 （文档中不应有其他内容。）条目的“替换”部分应与“ With”

分开。由制表符组成的部分。如果宏遇到建议的自动更正条目，该条目将覆盖现有条目，则会询问您是否要进行更改。

注意：

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

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

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

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