How do I remove all misspelled words from microsoft word document?

Question

I have numerous word documents with misspelt words that I'm hoping to batch delete. I've tried both of the solutions mentioned below, but they all seem to fail for me.

https://answers.microsoft.com/en-us/msoffice/forum/all/how-to-remove-all-misspelled-words-in-ms-word-at/608dbb5d-e719-4b5f-b44e-1b0542b66bd7

https://answers.microsoft.com/en-us/msoffice/forum/all/remove-all-misspelled-words-in-my-word-document/b686c318-c1fc-4d90-9e56-e922bb556abd

Using these codes causes my microsoft word to freeze (I'm using a 10th gen intel i7) indefinitely. Despite having waited for hours, there still hasn't been any progress. It seems to me like these codes only work for shorter documents, but because my word docs have more than 200 pages, it seems to freeze. Does anyone have any other code suggestions? Better yet, does anyone have any suggestions that allow me to batch delete misspelt words across multiple word docs? Currently, I am deleting misspelt words one document at a time. Thanks for any help!

Answer 1

You might try changing the 1000 in i Mod 1000 to 100.

Either way, with so many spelling errors, don't expect stellar performance.

Cross-posted at: vba - Delete all misspelled words in Microsoft Word document - Stack Overflow

For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

Answer 2

Try the following macro:

Sub Demo()

Application.ScreenUpdating = False

Dim bTrk As Boolean, i As Long

With ActiveDocument

bTrk = .TrackRevisions

.TrackRevisions = False

With .Range

Do While .SpellingErrors.Count > 0 

  .SpellingErrors(1).Delete 

  i = i + 1 

  If i Mod 1000 = 0 Then DoEvents 

Loop 

End With

.TrackRevisions = bTrk

End With

Application.ScreenUpdating = True

End Sub

Answer 3

Hi Paul,

Thank you for your advice! I've tried your macro but unfortunately, running the macro has caused my MS Word to freeze up. Its been frozen for more than an hour now and it doesn't seem like its made any progress. My document has numerous spelling problems (>1 spelling issue on every line) and more than 200 pages. I've got 16G ram and 6G Vram. Any thoughts?