如果您发现自己大量更新了拼写排除列表,那么总是加载文件,添加单词,然后重新保存并关闭文件可能会很麻烦。使用自定义词典时,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的旧菜单界面在这里: