Olivia,
I am not sure if you can do that with the spellchecker. You could create a
macro to check the document for bad or inappropriate words.
I haven't thought about this in great detail so there could be a much better
way, but basically you would create a collection of the bad words with a key
(the key is the same word repeated) then you attempt to add each word in the
document to the collection. If the word is a bad word already in your
collection then you can trap the error to process the bad word.
Sub FlagBadWords()
Dim colBadWords As Collection
Dim oWord As Range
Set colBadWords = New Collection
'Create your collection of bad words
With colBadWords
.Add "booger", "booger"
.Add "poop", "poop"
End With
For Each oWord In ActiveDocument.Words
On Error GoTo Err_Handler
colBadWords.Add LCase(Trim(oWord)), LCase(Trim(oWord))
colBadWords.Remove LCase(Trim(oWord))
Err_ReEntry:
On Error GoTo 0
Next
Exit Sub
Err_Handler:
If Err.Number = 457 Then
MsgBox oWord & " is a bad word and will be flagged."
If oWord.Characters.Last = " " Then oWord.MoveEnd wdCharacter, -1
oWord.HighlightColorIndex = wdBrightGreen
Resume Err_ReEntry
Else
MsgBox Err.Number & " " & Err.Description
End If
End Sub
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~
Greg Maxey - Word MVP
My web site
http://gregmaxey.mvps.org
~~~~~~~~~~~~~~~~~~~~~~~~~~~~