Count and display number of spell check errors

eduzs · #2 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
What's with the New Spell Check?	CrossReach	Word	1	01-16-2019 06:34 AM
Is there a way to display a count of number of emails I sent today?	Yirg	Outlook	0	01-20-2015 05:28 AM
Spell Check	HondaS600	Office	5	08-26-2013 01:04 PM
Display unique values and count the number of child items	vthomeschoolmom	Excel	2	07-25-2013 06:17 AM
Spell Check	CommoMP	Word	5	05-30-2011 05:40 PM