'**************************************
' Name: MsSpellCheck( string ) : string
' Description:This short and sweet funct
'     ion accepts a string containing text to 
'     be
spell checked, checks the text For spelling using MS Word automation,
and Then returns the processed text as a string. The familiar
MS Word spelling dialog will allow the user To perform actions such
as selecting from suggested spellings, ignore, adding the word To a
customized dictionary, etc.
' By: Eric Russell
'
' Inputs:String - Text to be checked for
'     spelling
'
' Returns:String - Text after modificati
'     on by user from the Word spell checking 
'     dialog.
'
' Assumes:You need to have Microsoft Wor
'     d95 or higher installed on the PC. Just 
'     place the function in a project module o
'     r the general declaration section of a f
'     orm.
'
' Side Effects:There are no known side e
'     ffects.
'
'This code is copyrighted and has' limited warranties.Please see http://w
'     ww.Planet-Source-Code.com/vb/scripts/Sho
'     wCode.asp?txtCodeId=843&lngWId;=1'for details.'**************************************

' Description: This function accepts a s
'     tring containing text to be
' spell checked, checks the text for spe
'     lling using MS Word automation,
' and then returns the processed text as
'     a string. The familiar
' MS Word spelling dialog will allow the
'     user to perform actions such
' as selecting from suggested spellings,
'     ignore, adding the word to a
' customized dictionary, etc.
'Syntax: MsSpellCheck( String ) : String
'     
'Author: Eric Russell
'E-Mail: erussell@cris.com
' WEB Site: http://cris.com/~erussell/Vi
'     sualBasic
' Created: 1998-13-14
' Revised: 1998-04-03
'Compatibility: VB 5.0, VB 4.0(32bit)
' Assumptions: The user must have MS Wor
'     d95 or higher installed on
'their PC.
'References: Visual Basic For Applicatio
'     ns, Visual Basic runtime
'objects and procedures, Visual Basic ob
'     jects and procedures.
'

Function MsSpellCheck(strText As String) As String

    Dim oWord As Object
    Dim strSelection As String
    Set oWord = CreateObject("Word.Basic")
    oWord.AppMinimize
    MsSpellCheck = strText
    oWord.FileNewDefault
    oWord.EditSelectAll
    oWord.EditCut
    oWord.Insert strText
    oWord.StartOfDocument
    On Error Resume Next
    oWord.ToolsSpelling
    On Error Goto 0
    oWord.EditSelectAll
    strSelection = oWord.Selection$
    If Mid(strSelection, Len(strSelection), 1) = Chr(13) Then
        strSelection = Mid(strSelection, 1, Len(strSelection) - 1)
    End If


    If Len(strSelection) > 1 Then
        MsSpellCheck = strSelection
    End If

    oWord.FileCloseAll 2
    oWord.AppClose
    Set oWord = Nothing
End Function