UNKNOWN //************************************** // Name: MsSpellCheck( string ) : string // Description:This short and sweet function 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 modification by user from the Word spell checking dialog. // //Assumes:You need to have Microsoft Word95 or higher installed on the PC. Just place the function in a project module or the general declaration section of a form. // //Side Effects:There are no known side effects. //This code is copyrighted and has limited warranties. //Please see http://www.Planet-Source-Code.com/xq/ASP/txtCodeId.843/lngWId.-10/qx/vb/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