Sub FindPreviousMisspelledWord()
    
Dim rng As range
    
    Set rng = selection.range
    
    While rng.Start <> 0
        rng.Collapse 1
        rng.MoveStart wdWord, -1
        If rng.SpellingErrors.Count > 0 Then
            rng.SpellingErrors(1).Select
            Exit Sub
        End If
    Wend
    MsgBox "No misspelled words found."
End Sub