UNKNOWN '************************************** ' 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 Word ' 95 or higher installed on the PC. Just p ' lace the function in a project module or ' the general declaration section of a for ' m. ' 'Side Effects:There are no known side ef ' fects. 'This code is copyrighted and has limite ' d warranties. 'Please see http://www.Planet-Source-Cod ' e.com/xq/ASP/txtCodeId.843/lngWId.1/qx/v ' b/scripts/ShowCode.htm '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