Microsoft Office Forums - View Single Post - [Solved] Count and display number of spell check errors

eduzs · 02-29-2020, 07:15 PM

Maybe something like:

Code:

Sub test()

Dim nPages As Long, StrTemp As String

nPages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
Application.ScreenUpdating = False
For x = 1 To nPages
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=x
    StrTemp = StrTemp & x & " page - " & ActiveDocument.Bookmarks("\Page").Range.SpellingErrors.Count & vbCr
Next x
Application.ScreenUpdating = True
MsgBox StrTemp

End Sub