I need a macro that will spellcheck the whole doc without me having to push any buttons, that is, the computer will just replace misspelled words with its best guess. I need to separate words that have a superscript from their superscript because word
counts those as errors, and i need it to skip words that begin with a capital letter because of names. this macro works but it only goes to the first word then a message box appears
ub RunSpellcheck()
Dim oSection As Section, OriginalRange As Range
Set oDoc = ActiveDocument
'Check what type of protection - if any - has been applied
If Options.CheckGrammarWithSpelling Then
Else
oDoc.CheckSpelling
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
If oDoc.SpellingErrors.Count = 0 Then
If Options.CheckGrammarWithSpelling Then
End If
End If
System.Cursor = wdCursorNormal
End Sub