罗汉（Rohan）在一家公司中工作，该公司正在使用一种新的书写字母的方法，该方法涉及大约一百个“复杂”单词的列表，这些单词在写作时绝对不能使用。如果文档中使用了列表中的任何单词，他正在寻找最好的警报方式。

可以通过多种方法来实现，而最佳选择将取决于您办公室的工作方式以及个人喜好。例如，一种处理单词的简单方法是将它们添加到Word所谓的“排除”字典中。基本上，这是一种修改拼写检查器使用的文件的方法，以便始终将特定单词标记为拼写错误。如果将一百个单词添加到排除列表，则它们将始终被标记为拼写错误。 _WordTips的其他问题已经讨论了如何在排除字典中添加单词。_您可以在此处找到信息：

http://word.tips.net/T001037

在http://word.mvps.org [Word MVP网站]上也可以找到类似的信息：

http://wordmvp.com/FAQs/General/ExcludeWordFromDic.htm

处理列表的另一种方法是为每个单词创建自动更正条目。键入其中一个单词时，您可以自动将其替换为某种明显格式的单词版本，以引起注意该单词已被使用的事实。如果您愿意，也可以简单地用空格替换单词，这意味着只要键入，就会自动“删除”有问题的单词。

您还可以使用宏方法。这些主要有助于在文档开发的各个阶段运行。宏可以执行您决定执行的所有操作。例如，它可能只收集在文档中找到的冒犯性单词，并通知您已找到它们，而无需实际进行任何更改。下面的宏就可以做到这一点。

Sub DoNotUseList()

Dim Word As Range     Dim ForbiddenWords(2) As String     Dim ForbiddenWord As Variant     Dim BadList As String

' Populate array with forbidden words     ' Remember to modify the size of the array above     ForbiddenWords(0) = "cat"

ForbiddenWords(1) = "dog"

ForbiddenWords(2) = "mouse"



BadList = "The following forbidden words have been identified:"

For Each Word In ActiveDocument.Words         For Each ForbiddenWord In ForbiddenWords             If LCase(Trim(Word.Text)) = ForbiddenWord Then                 BadList = BadList & vbCrLf & ForbiddenWord             End If         Next     Next

MsgBox BadList, vbOKOnly, "Forbidden Words"

End Sub

要更改禁止列表上的单词，只需更改ForbiddenWords数组的大小和内容。您应确保数组内容中没有大写字母和短语。当您运行宏时，将对文档中的每个单词与每个禁用单词进行检查，如果找到任何单词，则会在最后通知您。

WordTips的其他问题中还介绍了其他类似的基于宏的方法来处理此类问题：

http://word.tips.net/T000502

注意：

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

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

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

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（521）适用于Microsoft Word 97、2000、2002和2003。您可以为Word（Word 2007）的功能区界面找到此技巧的版本。和更高版本）在这里：

执行禁止使用的单词列表。