[Bill Davy[_2_]]

How do I do this?

TIA
Bill

PS Word 2003 SP2

[Jay Freedman]

Bill Davy wrote:
How do I do this?

TIA
Bill

PS Word 2003 SP2

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 FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

[Bill Davy[_2_]]

"Jay Freedman" wrote in message
...
Bill Davy wrote:
How do I do this?

TIA
Bill

PS Word 2003 SP2

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 FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup
so all may benefit.



Amazing. Thank you.
Bill