如果您发现自己大量更新了拼写排除列表，那么总是加载文件，添加单词，然后重新保存并关闭文件可能会很麻烦。使用自定义词典时，Word允许您通过单击按钮向其中添加单词。但是，当涉及到排除列表时，没有这种简单的方法。

以下宏将允许您快速将单词添加到排除列表。您可以将此宏分配给工具栏上的按钮，然后可以通过突出显示单词然后单击按钮来更新列表：

Sub Exclude()

Dim sAddWords As String

sAddWord = Trim(Selection.Text)

ChangeFileOpenDirectory _       "C:\Program Files\Common Files\Microsoft Shared\Proof\"



' The file name in the next line should be changed so it     ' reflects the proper exclude file name for your system     Documents.Open FileName:="mssp2_en.exc", _       ConfirmConversions:=False, ReadOnly:=False, _       AddToRecentFiles:=False, PasswordDocument:="", _       PasswordTemplate:="", Revert:=False, _       WritePasswordDocument:="", WritePasswordTemplate:="", _       Format:=wdOpenFormatAuto     Selection.TypeText Text:=sAddWord     Selection.TypeParagraph     ActiveDocument.Close SaveChanges:=wdSaveChanges, _       OriginalFormat:=wdOriginalDocumentFormat End Sub

此宏“清除”文档中选定的单词，并将其添加到排除文件的开头。在加载，修改并关闭了排除文件后，您会在屏幕上看到快速闪烁的信息，但是将来在将来使用Word时，排除文件中就会出现该单词。

您应确保更改用于排除文件的文件名。如您在_WordTips的其他问题中所了解的，_文件的名称可能因系统而异。

注意：

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

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

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

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（10081）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

自动更新拼写排除列表。