it sounds like you need to manually iterate through the two
collections of proofreading errors.
Aftyer putting spellingcheck into the help system in the VBE, I found
this topic readily enough - the other topics are also of use in this
case (hint hint)
ProofreadingErrors Collection Object
A collection of spelling and grammatical errors for the specified
document or range. There is no ProofreadingError object; instead, each
item in the ProofreadingErrors collection is a Range object that
represents one spelling or grammatical error.
Using the ProofreadingErrors Collection
Use the SpellingErrors or GrammaticalErrors property to return the
ProofreadingErrors collection. The following example counts the
spelling and grammatical errors in the selection and displays the
results in a message box.
Set pr1 = Selection.Range.SpellingErrors
sc = pr1.Count
Set pr2 = Selection.Range.GrammaticalErrors
gc = pr2.Count
Msgbox "Spelling errors: " & sc & vbCr _
& "Grammatical errors: " & gc
Use SpellingErrors(index), where index is the index number, to return
a single spelling error (represented by a Range object). The following
example finds the second spelling error in the selection and then
selects it.
Set myRange = Selection.Range.SpellingErrors(2)
myRange.Select
Use GrammarErrors(index), where index is the index number, to return a
single grammatical error (represented by a Range object). The
following example returns the sentence that contains the first
grammatical error in the selection.
Set myRange = Selection.Range.GrammaticalErrors(1)
Msgbox myRange.Text
Remarks
The Count property for this collection in a document returns the
number of items in the main story only. To count items in other
stories use the collection with the Range object. If all the words in
the document or range are spelled correctly and are grammatically
correct, the Count property for the ProofreadingErrors object returns
0 (zero) and the SpellingChecked and GrammarChecked properties return
True.
went like this:
Quote:
>This is such a simple request, and I can't get it to work!
>I am trying to launch the spell check of a word document
>from my VB app.
>I started off with the easy:
> If Options.CheckGrammarWithSpelling = True Then
> ActiveDocument.CheckGrammar
> Else
> ActiveDocument.CheckSpelling
> End If
>However, this is not acceptable because the .CheckGrammer
>or .CheckSpelling will not return control to the
>application until the spell check is finished!! So
>basically this will hang my program.
>So then I found this bit of code:
>WordApp.CommandBars.FindControl(ID:=2).Execute
>Now this is what is really pissing me off, this will only
>launch the spell check if my last cursor position is on
>text. If I put my cursor on some spaces, or a line break
>or something it won't launch the spell check at all.
>Does anyone out there know what I can to do launch the
>spell check without{*filter*} my program?
Steve Hudson -- Word Heretic, Sydney, Australia
{*filter*} teacher, trainer, tutor, writer, developer
Word MVP FAQs: http://www.*-*-*.com/
You agree by writing to me personally that any material can be reused publicly unless you explicitly disclaim it. (For List and blog use.)