how to gather all the misspelled words in an ms word document and place them in a new document

Open up word

Select tools, followed by macro copy the following macro deleting any standard text:


Sub GetSpellingErrors()
Dim DocThis As Document
Dim iErrorCnt As Integer
Dim J As Integer

Set DocThis = ActiveDocument
Documents.Add

iErrorCnt = DocThis.SpellingErrors.Count
For J = 1 To iErrorCnt
Selection.TypeText Text:=DocThis.SpellingErrors(J)
Selection.TypeParagraph
Next J
End Sub