To: Reitanos,

'
' If Spelling & Grammar dialog box pops up,
' press cancel
'
Sub TestGrammar()
   Dim newDoc As Document
   Dim oRange As Range
   Dim gramErr As Variant
   
   Set newDoc = Documents.Add
   Set oRange = newDoc.Range
   oRange.Text = "Once upon a time, there was a boy. Boy throw apples
oranges fruit. And then he ran away."
   If newDoc.GrammarChecked = False Then
       newDoc.CheckGrammar
   End If
   
   Set gramErr = oRange.GrammaticalErrors
   MsgBox "Number of Errors: " & gramErr.Count
   Set oRange = oRange.GrammaticalErrors(1)
   MsgBox "Error: " & oRange.Text
   
End Sub

Steven Craig Miller