R
Ravi
Hi
I am trying to get all the spelling errors through macro from document. It
is not working perfectly. I executed the macro for a file which is of BIGGER
size. There are atleast 1000 spelling errors in that.
But, i am getting only few errors. Please advice.
The code is as follows:
Sub GetSpellingErrors()
ActiveDocument.SpellingChecked = False
Selection.WholeStory
Selection.LanguageID = wdEnglishUK
Selection.HomeKey unit:=wdStory
Open "c:\windows\desktop\out.txt" For Output As #1
For i = 1 To ActiveDocument.SpellingErrors.Count
print #1, ActiveDocument.SpellingErrors(i).Text
Next i
Close #1
End Sub
I am trying to get all the spelling errors through macro from document. It
is not working perfectly. I executed the macro for a file which is of BIGGER
size. There are atleast 1000 spelling errors in that.
But, i am getting only few errors. Please advice.
The code is as follows:
Sub GetSpellingErrors()
ActiveDocument.SpellingChecked = False
Selection.WholeStory
Selection.LanguageID = wdEnglishUK
Selection.HomeKey unit:=wdStory
Open "c:\windows\desktop\out.txt" For Output As #1
For i = 1 To ActiveDocument.SpellingErrors.Count
print #1, ActiveDocument.SpellingErrors(i).Text
Next i
Close #1
End Sub