Spelling and Errors

[Ravi]

Hi

I am trying to get all the spelling errors from document. I am executing
below macro for 20-30 pages word file. There are atleast 1000 spelling errors
in that. But, I am getting only very few through macro. Please advice.

The code is as follows:

Sub GetSpellingErs()
ActiveDocument.SpellingChecked = False
Selection.WholeStory
Selection.LanguageID = wdEnglishUK
Selection.HomeKey unit:=wdStory
Open "c:\Output.txt" For Output As #1
For i = 1 To ActiveDocument.SpellingErrors.Count
print #1, ActiveDocument.SpellingErrors(i).Text
Next i
close #1
End Sub