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

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

`link:/office-skill-cn/wordribbon-T008695

在http：-word.mvps.org [Word MVP网站]`上也可以找到类似的信息，这里：

https://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 _：

的其他问题中介绍了处理此类问题的其他类似的基于宏的方法。

`link:/office-skill-cn/wordribbon-T001173

注意：

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

WordTipsMacros [单击此处在新的浏览器选项卡中打开该特殊页面]。

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

（Microsoft Word是世界上最流行的文字处理软件。）此技巧（11329）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。您可以找到此技巧的一个版本Word的旧菜单界面在这里：

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