罗汉(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)的功能区界面找到此技巧的版本。和更高版本)在这里: