Option Explicit 
 
Sub SpellChecker2() 
     
    Dim WordCol         As Collection 
    Dim i               As Long 
    Dim StartLine       As Long 
    Dim StartCol        As Long 
     
    Set WordCol = New Collection 
     
     'Add as many words here as you would like.
    WordCol.Add "our" 
    WordCol.Add "out" 
    WordCol.Add "of" 
    WordCol.Add "or" 
     
    For i = 1 To WordCol.Count 
        StartLine = 0 
        StartCol = 0 
        Do 
            Selection.Find.ClearFormatting 
            With Selection.Find 
                .Text = WordCol(i) 
                .Replacement.Text = "" 
                .Forward = True 
                .Wrap = wdFindContinue 
                .Format = False 
                .MatchCase = False 
                .MatchWholeWord = True 
            End With 
            Selection.Find.Execute 
            If Selection.Range.Text = WordCol(i) Then 
                If StartLine = 0 Then 
                    StartLine = Selection.Range.Information(wdFirstCharacterLineNumber) 
                    StartCol = Selection.Range.Information(wdFirstCharacterColumnNumber) 
                    Selection.Range.Font.Color = wdColorRed 
                Else 
                    If StartLine <> Selection.Range.Information(wdFirstCharacterLineNumber) Or _ 
                    StartCol <> Selection.Range.Information(wdFirstCharacterColumnNumber) Then 
                        Selection.Range.Font.Color = wdColorRed 
                    Else 
                        Exit Do 
                    End If 
                End If 
            End If 
        Loop 
    Next i 
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst 
     
End Sub