Spell Checker

BCullenward

Registered User.
Local time
Today, 03:48
Joined
Jul 6, 2005
Messages
28
Does anyone have any examples of a spell checker? I found one that opens a word doc and copies the text into that, but it does not do what I need it to do. The built in spellchecker ignores Upper case values, and breaks after 3-4 tabs/subforms
 
So you are looking for a spell-checker that is more robust than Word's spell-checker? Or would Word's suffice if it caught UPPERCASE.

And, how does it "break" after three to four tabs/subforms? That part was pretty vague...
 
The built in one ignores Uppercase by default but you can change it in
Tools>Spelling>Options...

Peter
 
This is the correct code... setting the IgnoreUppercase option must occur before populating the document.

Code:
Sub TryIt()
    Dim oWd As New Word.Application
    Dim oDoc As Word.Document
    Set oDoc = oWd.Documents.Add
    oDoc.Paragraphs.Add
    oWd.Application.Options.IgnoreUppercase = False
    oDoc.Content.InsertAfter Text:="This is my text for the document.  This is a misspeltt word.  This is ALSOO mispelt."
    Dim oSe
    Set oSe = oDoc.SpellingErrors
    Dim i As Integer
    For i = 1 To oSe.Count
        MsgBox oSe(i)
    Next i
    Set oSe = Nothing
    Set oDoc = Nothing
    oWd.Quit savechanges:=False
    Set oWd = Nothing
End Sub
 
Last edited:

Users who are viewing this thread

Back
Top Bottom