[Hellmasker]

Hi everyone,

I have approximately 35000 words that has been edited by an editor. He put a line through all text that he thinks is incorrect and added text that is underlined to replace the incorrect text.

I would like to figure out how to select all the text with the strikethrough formatting and delete it AND select all text with the underline formatting and remove the underline formatting.

I have no experience with macros but I found this to delete all misspelled words:

Dim i As Long
With ActiveDocument
For i = .SpellingErrors.Count To 1 Step -1
.SpellingErrors(i).Delete
Next i
End With

From my programming experience, I'd think SpellingErrors would have to be replaced with something that selects the underline format.

Can anyone help? Would be greatly appreciated! Thanks.