Search to next spelling/grammar mistake

  • Thread starter Thread starter Bill Davy
  • Start date Start date
Bill said:
How do I do this?

TIA
Bill

PS Word 2003 SP2
Click to expand...

One way is to bring up the Spelling dialog, either F7 or right-click a word
that has the red way underline and choose Spelling. As you handle each word,
either changing it or ignoring it, the dialog will jump to the next one.

Another way is to use a macro (http://www.gmayor.com/installing_macro.htm):

Sub NextSpellingError()
Dim myRange As Range
Dim docErrs As ProofreadingErrors
Dim nextErr As Range

Set myRange = Selection.Range
Set docErrs = ActiveDocument.SpellingErrors
If docErrs.Count > 0 Then
For Each nextErr In docErrs
If nextErr.Start > myRange.End Then
nextErr.Select
Exit For
End If
Next
Else
MsgBox "No errors to show"
End If
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
 
Jay Freedman said:
One way is to bring up the Spelling dialog, either F7 or right-click a
word that has the red way underline and choose Spelling. As you handle
each word, either changing it or ignoring it, the dialog will jump to the
next one.

Another way is to use a macro
(http://www.gmayor.com/installing_macro.htm):

Sub NextSpellingError()
Dim myRange As Range
Dim docErrs As ProofreadingErrors
Dim nextErr As Range

Set myRange = Selection.Range
Set docErrs = ActiveDocument.SpellingErrors
If docErrs.Count > 0 Then
For Each nextErr In docErrs
If nextErr.Start > myRange.End Then
nextErr.Select
Exit For
End If
Next
Else
MsgBox "No errors to show"
End If
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup
so all may benefit.
Click to expand...


Amazing. Thank you.
Bill
 
Back
Top