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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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