强制使用请勿使用的单词列表(Microsoft Word)
罗汉(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)的功能区界面找到此技巧的版本。和更高版本)在这里: